? EXECUTE ESPOL/DISK 


PACKET 35 
INPUT 1885 CARDS FROM ZIP 
TIME 133A 


DATE 79219 TUFSDAYs 08/07/79 


*** RURROUGHS B5700 TSMcP MARK XVI.0.972 AND INTRINSICS MARK XVI,0,132 44m 
#NO MESSAGES TODAY 


13436813 ? EXECUTE ESPOL/DTSK 


13838814 ? CORE= 12000 

13238914 ? STACK= 1000 

13238114 ? FILF TAPF® SYMBOL/TSSMCP DISk SERIAL 

13238815 ? FILE DISK= TSS/MCPA 

13838315 ? FILE STUFFS TSSMCP/STUFF 

13838315 ? DATA CARD 

13838817 AtESPOL/DISK/SITE= 4 BOJ 12338 05/12/77 

13138816 MKA OUT SFR CODE SITrtrSPOL/DISKe= 4 

13:38:19 cnc IN CARNtRSPOL/DISKs 4 

13238320 nKA IN SER SYMBOL TSSMCPIESPOL/DISK= 4 

43238825 NnkKA OUT SFR TSSMCP STUFFIESPOL/DISK= 4 

13838231 DKA OUT SFR CODISK StTFtESPOL/DISKs 4 , 

13838137 DKA 1 RETRIES® MIX= ae DA®N103170» SEGSS05* Re0140000542047165» 1024 
13338237 NKA 3 RETRIFS*e MIX= ae DA#N103180* SEGS=05* R20140000562047165e 1021 
13238:50 NKA 1 RETRIES® MIX® 4 DAFH103370% SFGSF05* R#01400005427047165» 101 
13:38:51 DKA 2 RETRIES» MIX=® 4» DA2H103390» SFGSF05» Re0140000562047165, 1021 
13240201 NKA 1 RETRIFS» MIX= 4» DA®0103795» SFGS#05» Rz0140000542047422, 10n} 
13240336 NKA 1 RETRIFS* MIX 4 DAS0103955»e SFGS#05+ Re0140001142047422, 1022 
13#40338 DKA 2 RFETRIFS» MIXs 4s DA=N103965» SFGSF05» R=01408000562047492, 0x} 
13840848 4ns 

43840849 "OPRTR NS*FDIESPOL/DISK= 4e Sz 35 Az 34110 

93840149 TSSMCP/STUFF/SITEs 50 SEGSm==@CREATED O8/07/79 AT 13138194107 

1340350 DKA REL TSSMCP STUFFIESPOL/DISK= 4 

13#40350 CODISK/SITE/SITE® 600 SEGSm#CREATED 08/07/79 AT 43238!30!200 

43840850 DKA REL CODISK SITESFSPOL/NISK® 4 

13840:50 CODE/STTE/SITE= 0 SEGS@=*CRFATED 08/07/79 AT 1318383178461 

13840850 MKA REL CODE SITE:ESPOL/DISKe 4 

13:41:14 CNC REL CARDIESPOL/DISK® 4 

43:44:14 2? ENN, 

132493915 nKA REL SYMROL TSSMCPIFSPOL/DISKe 4 

138449317 FSPOL/NISK/SITE® 4ePSTe 1830 DS"ED 

13247918 FOR ESPOL/DISK= 4:PST= 89sy70T= 82+CORE=15360 

43247949 PKT#0035 REMOVED 


QUSER ® SITE 
PACKET 330 . 
INPUT 26 cARNS FROM CRA 


TIMe 1339 
DATE 7921090 TUESDAY» 08/07/79 


exe RURROUGHS BS700 TSMcP MARK XVI.00172 AND INTRINSICS MARK XVI,0,132 wax 
#NO MESSAGES TONAY 


43230%50 USERs SYTTE 


13339950 9? EXECUTE PATCH/MERGE 

13332850 ?DATA CARD 

13232353 4:PATCH/MERGE/SITEe 3 ROU 1332 05/12/77 

13:32:54 CDR IN CARDIPATCH/MERGFS 3 

13332355 PRN0034 OUT O11 LINE: PaTCH/MFRGES 3 

13:33:00 MKA OUT SFR MASTERF SITESPATCH/MERGE= 3 

13233804 NKA ¥N SER PATCHES TSSMCPIPATCH/MERGF= 3 

13833204 DKA OUT SER PATCHDE SITESPATCH/MERGES 3 

138332802 OKA OUT SER SORTLIN SITEtPATCH/MERGE= 3 

13:35:23 END ; 

13:35:23 COR REL CARNIPATCH/MERGFS 3 

13838812 PATCHDF/StTE/SITE= O SFGS=eCRFATFD 08/07/79 AT 00822800819 
43438843 DKA RE). PATCHDE SITESPATCH/MERGEs 3 

130411840 PROOO34 OUT OL2tPATCH/MERGF® 3 

13141348 NKa REL PaTCHES TSSMrPtPATeH/MERGFe 3 

13849348 SORTLIN/SrTE/STTEs 1350 SEaASe@CREATED 08/07/79 AT 13633804100 
13949249 DKA RE|. SORTLIN SITE SPATCH/MERGE® 3 

13:41:50 PRD0034 REL 012 LINE S4B838PATCH/MERGES 3 

13:41,50 MASTFRE/SITF/SITE= 900 SEGS*™CREATEN O8/07/79 AT 13:32:59119 
13141450 DKA REL MASTERF SrTEtPATCH/MERGE® 3 

43549254 PATCH/MERGE/SITE® 39PST® 3:06 EO 

13241951 FOR PATCH/MERGE® 3:PST= 1850 10T= 95eCORE® 9216 

13241951 PKT#0033 REMOVED 


LABEL, OOOO0O0000LINE 001792199 FXECUTE PATCH/MERGE 


BURROUGHS R#=5700 PATCH/MERGE PROGRAM MARK XV1,0,104 


eo EO tNPUT 


SOCARD MERGE ZIP LIST 
$. 139 PATCHES FOR TSSMeP 


CARD INPUT IS CARD 
PATCHES/TSSMCP WILL BE MERGED 
PATCH /TSSMCP 1S NOT ON DISK 


SeFXECUTE FSPOL/NISK 

$*cORr = 12000 

SeSTACK sw 4000 

SeFILF TAPE = SYMBoL/TSSmMCP DISK SERIAL 

SeFILF DISK * TSS/MCPA 

$eF ILE STUFF = TSSMCP/STUFF 

$*NATA CARD 

$= eeeee THIS LTSTING SHOWS PATCHES IMPLEMENTEN AT UCSC #euaw 
SRESET LIST SET TAPE STUFF SINGLE 

$ SET AUTONUMP PACKETS nUMP 

$ RESET SEPTICTANK CHECKLINK SAVERFSULTS STATISTICS 
SRESET NUBUGGING DEX OKRNONFX AUXMFM NEWLOGGING SHAREDISK 
$ SET TWXONLY 


$# PATCH NUMRER 101 FOR TSSMCP CONTAINS 004 CARNS. 


BEGIN DSta 16 LIT™@SYSTEM HANG Fes 
$1 BY DND 
$i 7/36/74 
$I TR esos 
$3 THrS PATCH ReFORMATS THF "SYSTEM HANG" MESSAGE, 


TUFSDAY>» 


00652400 


BIO RI SIOIGIGI IR ORO OR OR IOIIOIOROIOIOI GI IOIGIUIGI IORI IG IGIOI ROR IOI IGOR IOI GIGI IOI IOI I ROISIOIO I I Ki ake 


S#PATCH NUMBER 1402 FOR TSSMCP CONTAINS 010 CARDS 


SVOIDT 14218081 = 
IF AITCAIT£(COII,£8:10] Ne@ 1 THEN 
ArGtN 
ried} 
WHILE AIT£1).682910) = 4 OO THB] 413 


00000000 


14216071 
14218072 
14218074 
14218076 
14218078 


OB/07/79, 1832 PM, 


pe wr Bie Har we Bier } oS OO XIOoaIyawsqanronaanno 


oO 


poe Bes Bees Bios Bie j 


0000000/CARD 


101 PATCHES/TSSMCP 


101 
101 
104 
104 
104 
101 


109 


102 
102 
102 
192 
102 


PATCH 


ROTOR III IOI IOIIIG GR IOIGIG III IG IOIGI I UIGIOI GIGI OI IIS I ROIOI IOI I IOI IOI ROK: goo 


/MERGE 


rr ee er ee ee ee ee ee ee ee ee ee ee en ee ee | 


FOR JssAyTf£0) STFP #1 UNTrL It DO 14218080 

; AITE Sei] teAlTrurs 14218089 

EwD ELSE TtsAITCO]+13 14218084 

ATCO] :=ePCDUP) + 13 14218086 
ArTryleemcias(8s36tiolemMCcIeCr rey )3 14218088 

$! THrS CHANGE CORRECTS AN ERROR IN THE HANDLING OF COBOL68 90000000 
S3OPFN STATFMENTS THAT occCUR IN THE INPUT OR OUTPUT PROCEDURE 90000005 
S8OF a SORT, THe FILES wtLl NOW BE LEFT OPEN aS THEY SHOULD. 90000010 


SRI OR IOOIOISI IG OIOIOIOIGI IORI IOI IOIIOIGIOIOIOIGIOIIOIIOIGIOR I IORI HOI Ki i ak 


$#PATCH NUMBER 103 FOR TSSMCP CONTAINS 1 CARDS, 


IF P OR | THEN 38608920 
$! THIS PATCH CORRECTS AN ERROR IN THE MCP PROCEDURE BACKCLOSE 
$3 THaT WOULA SOMETIMES CAUSE "PUD" FILES NOT TO BE PUNCHED FVEN WITH 
$t THE OPTION AUTOPRNT SET: 
SSO IRR III IG OIIIOI OIG IOI RI IO IOI ORCI OOIIOIOI EOI I IORI IOI i ik ler 


SEPATCH NUMBER 104 FOR TSSMCP CONTAINS 141 CARD 


SCHEDLOOKCKTReTYPre7) % ESe6s XS=7 16651000 
$1 FIXES THE SCHEDULE LiNF "XS" KEYIN 
SAO IORI IO IGRI IID RIOR IOI IOI IIR IG IOI RII RR IG IO IOI IR HOR Hole Kot 


S$#PATCH NUMBFR 105 FOR TSSMCP CONTAINS 2 CARDS 


IF ¢Ty « PSFUNOMYXPFPIM1X1) # O THEN 390929165 
IF PACKETPAGErT1 = 32] # 0 THEN 39092167 
$1 BY KEN KOVACS 
$t DATA 4/29/74 


$3 THrS PATCH CORRFCTS AN TNVALTD YNNFX IN CONTROL STATE, 
$8 IO IORI IOI IOI OI IO OR OGIO IOIOR ORR Rk x 


$#PATCH NUMRER 106 FOR TSSMCP CONTAINS 8 CARDS. 


$ VOrnT 07418404 07118100 

IF PACKETCARD s 5 THEN 07148500 

IF PTYPE © 3 AND NOT CONTINUE AND NOT ADECK THEN 07139520 

IF PKTONLY THEN 20607515 

$ SET OMIT @ NOTCPACKETS) 20609425 

IF PSFUNOLCUNITNO"32) =z 0 THEN 20609430 

PRINTTHFCOVER(CCARNLOCsUNITNOSPSOURCE) 3 20609435 

& POP oMrIT 20609440 
$! BY KFK 


$8 DATE 02/90/75 


JUDO IVO OCF 


i ] 


car J 


ee ee Bie Be Be Bow 7 


$t MSa CENTRAL = DETROIT 

$3 THIS PATCH WILL AlLOW PACKETS AND DECKS To BE MIXED, ALSO IF THE 

$3 SPM OPTION “PKTONLY*® [TS SET THEN ALL DECKS WILL RE USED AS IF THEY 

$t WERE PACKETS. THAT Is THE USE OF PKTONLY IS NOW CHANGED So THAT 

$: IT NO LONGER CONTROLS THE LOADING OF DECKS BUT Tn CONTROL OF THEIR 

$: USF, 

BOO ORIG IOI II IO IOIIOI IG RIOR ORI IOI GIGI IOI IOIIGI I IGIOIOI IOI IOI I kok 


S#PaATCH NUMBER 107 FOR TSSMCP CONTAINS 1 CARDS» 


HFANEREATS FOR CAINO1 IFAS 3Bt1OIRSYSNOP414632)3 20289115 
$8 BY Kk 
$: DATE 8/7/74 
$1 THIS PATCH WILL CORRECT A CONDITION THAT cOULnN MARK THE PACKET 


$: PAGE AS RFING IN USF RY THE WRONG SYSTEM AFTFR A HALT/LOAD, 
BRR IIR RRR ORI RIOR IIOROR ROKR OI RI KHOI QOOIIOI IG III OIG i IR IOIC# I He ak 


$# PATCH NUMBER 108 FOR TSSMCP CONTAINS 001 CARD, 


IF Po>0 THEN MOVECI5S»P2,T+4) ELSr ME T+4) «P23 03120000 
$§ RY DNDN 
$i DATE 8/99/74 
$t THIS PATCH AltoOWS ERROR MESSAGES LONGER THAN 60 CHARACTERS 
$t TO BE PRINTEN CORRECTLY ON A REMOTE TERMINAL THROUGH CANDE, 
BOB he he he ee ke AR ge RR ae RRR eR gtk RR HOHE tok 


$#PATCH NUMBER 109 FOR TSSMCP CONTAINS 1 CARD, 


tPF LOGLINE * O THeN LORLINE «© © UNTTNO? 20602502 
$t BY DND 
$1 DATE 9/49/74 
$t THIS PAYCH REPLACFS A LINE OF CODE THAT WAS INADVERTENTLY 


$t LEFT OUT IN THE XV.3 RELEASE. WITHOUT THIS PATCH® ESPDISK) 

$1 1S NOT HANDLED CORRFeTLYe INCORRECT LOG FNTRYES aRF MADE.» 

$1 ANN SYSTEM HALTS CAN OCCUR, 

$ Dkk RII ROKK ORG GRR OR RRR OROK ROO ROK i ORIG gOROR RI OIG; Oi iGO OR Og aR te ok ak 


S#PATCH NUMBER 410 FOR TSSMCP CONTAINS 14 CARDS. 


FIBC16) CCF ite03? 41204000 
$1 BY KK 
$1 DATE 10/92/74 
$t THIS PATCH CORRECTS THE TSSMCP"S HANDLING OF TAPE FILES 
$t CLOSFD WITH THF “CLOSFC<FILETIN>»"9" SYNTAX. THE TSSMCP 
$: WOULN "FORGFT™ THAT THE LAST 1/0 DONF ON THIS FILE WAS A 


> Be ee Bw Bw Boe Re |} 


g 


3595 90059 


=] 


3I9UT9TTIS 


2 


za ovr woos 


106 
106 
106 
106 
106 
106 
106 


107 


107 
107 
107 
107 
107 
107 


108 


108 
108 
108 
108 
108 
108 


109 


109 
109 
109 
109 
109 
109 
109 
109 


110 


110 
110 
110 
110 
110 
110 


$1 REVERSE 1/0 BY ZEROING FIBE16)» THUS WHEN THE Frue IS 
$1 OPFNED AGAIN THE TSSwCp WOULD SPACECFORWARD) OVER 
$! THE NEXT FILE» AND THF FILE THAT WAS JUST CLOSED WOULD BF 


$! ACCESSED AGAIN, 
SRR ORR ROR ROR ROR ROR IR ORRORGR ROIOIOIOI IG IR RR IOIGI ORIG ROIOIGI IIR ROR IGG ROIOI OR GH tee 


$# PATCH NUMBER 111 FOR TSSMCP CONTAINS 1 CARNS, 


$ VOINT 06098201 06097600 
$: BY KK 

$! MATE 117 3/74 

$3 THIS PATCH WILL Al.LOW A DISK SQUASH TO RO STOPPED ONLY AFTER IT 

$8! HAS FINISHED MOVING A FILE. IF STOPPED SonneR THEN THE AVAILABLE 

$3 DISK TABLE COULN BE NAMMAGED, 

EOC eTe Ce SE CCL ECS SPSS Te LT STS PPC PPC TES CPT CST OTe LETT CST eS ESTP S TCE PCT eT ee Tere ee 2s 


$# PATCH NUMBER 112 FOR TSSMCP CONTAINS !{ CARDS, 


RRRMECH * NOT TWOCUy ANN RRRMECHS F LET STATUS FIND IT 04383900 
$t BY KK 
$t DATE 11/7 4/74 
$1 THIS PATCH CORRECTS A PROBLEM WITH UNITS GOING NOT READY 


$1 AND THEN NOT BEING PrCKED UP AS BEING READY WHEN THEY GO READY 
$ Soko IR IO IOR IOI RIOR ERO ISIS ORIG ROI IOR III III OISIOIOR RIOR RIOR IR IOI IGE ic 


S#EPATCH NUMBFR 113 FOR TSSMCP CONTAINS 5 CARDS 


Xs CLKLO} t= | 03067500 
$ SFY OMIT = NOTCNFEWLOGGING) 03067600 
IF LOGSTOPPFDOFP4MrxX] THEN PROCTIMEPPIMIX] FI.SF 03067700 
$ POP oMrT 03067800 
PROCTIMErPIMIX] + CLOCK + PCRTR)3I 03067900 
$t BY KFK 
St DATE 11/27/74 : . 
$3 THIS PATCH CORRECTS A CONDITION THAT CAUSFD THE LOG OFF MESSAGF TO 


$1 CONTAIN FRRONFOUS NATE, AS A RESULT OF THe NEW MCP COMPYLF TIME 
$t OPTION *"NEWLOGGING" THE VALUE OF PROCTIMECPiMIX] IS CHANGED TO 
$t INNICATE JF THE PROGRAM SHOULD RE CHARGFD FOR CPU TIME OR NOTa 


$t THrS WAS NOT TAKES INTO CONSTDERATION WHEN COMM2 PaSSED THE VaLUE 
$: TO Be USEN AS "CLOCK# BY CANDE, 
OB ake ote ake he ate eo aed ie OR eI gO ROR rR kok ROOK ka kk Ri ROR kai Ok kN Kk ake aK kk ak & 


S#PATCH NUMRER 114 FOR TSSMCP CONTAINS 2 CARDS 


$ VOIN 37284150 


pee Eww Eine Eine Bros ] 


Oo 


wo Rive Bie Bee Eee Ere Tew | 


o 


J Joo oC_0”7 


gu TV 800 900 00 0”—79 9 


114 


1F U < 16 THEN FPBFEN43], 76817 1¢PRNTABLEIU].(3131733 37285410 
$1 BY KFK 
£1 DATE 11/97/74 | 
$1 WHEN USING A MULTY*"FILE PBT THE SECOND AND FO!.LOWING FILFS WILL 
$1 SOMETIMES BE PRINTED SEVERAL TIMES. THIS WAS CAUSED BY A CONFLICT 
$: IN THE USE OF A FIELmM In THE FPB OF A PROGRAM: THE SAME FIELD 
$t THaT IS USED TO HOLD THF NUMBER OF COPIES ¢FROM a FILE EQUATE) 
$: 1S ALSO USED TO HOLD THE PRN OF THE TAPE, THIS PROBLEM JS 
$1 FIXEN BY NOT MOVING THE PRN TO THE FRP UNT?IL THE FILE IS CLOSED. 
$t THEN WHEN THE FILF Is RFOPENFD A NEW SECTION OF THF FPR WILL BE 
$t USFD ANN THIS WILL CONTAIN THE CORRECT VALUE FOR COPIES, 
Bok ORO OIG IOI ROIS IORI IORI IIOI NOI IO IOIGR IOI IGOR IOI; OI RIO I IGF ig OR aa ORI FOR ii a IO OR Oi i ak 


S#PATCH NUMBER 115 FOR TSSMCP CONTAINS 1 CARDS 


KINDeF tr BE43.6891473 ye FYBF13).728210940 THEN ReELeFIBL13),628810)3 39092000 
$t BY KFK 
$: DATE 11/97/74 
$3 IF THE RFFL IS GIVFN ON A FILECEQUATION) CONTROL CARN IT WILL 
$1 NOT RE USED RY THE MeP WHEN 1T LOOKS FOR A TAPE FILE AT FILE 
$t OPFN TIME. THIS $8 RFCAUSE THE REEL NUMBER +S MOVFD FROM THE 
$1 FIR,» NOW THE REEL NUMBER IS ONLY MOVED FROM THE FIB IF IT 1S 
$t NONZERO 
$ Ck ORI IOI IO IORI GIOIGIOR ROR OIRO OGRE GRR GIGI GIORGI i ROR IOROKOR ROR AOR HO i aC OR KC ak ak 


S#PATCH NUMRFR 116 FOR TSSMCP CORTAINS ! CARDS 


$ VOrNT 38024084 38024010 
$1 BY KFK 

$1 DATE 12/23/74 

$: JF A PROGRAM READS A DISK FILE THAT HAS A ROW SIZE THAT IS LESS 

$t THAN THF PROGRAMS RUTFFR SIZr» THE MCP WILL ONLY GFT A CORFE 

$8 BUFFFR THF St7E OF ThE MrSK FILES ROW, BUT ANY PROGRAM THAT 

$! USFS THE BUFFER WITHAUT GoING THUR THE INTRINSICS WILL NoT 

#1 KNOW THaT THE BUFFER SIZE HAS BFEN CHANGFDs THEREFOREs AN INVALID 

$1 LINK May OCCURF 1F One TRIES TO USE THE PART OF THF BUFFFR THAT 

$t 1S NOT THERE: : , 

$k OG IOI ga ORR OIOI kok RIGOR ORO IRR IO IG OIG OR GIG OIG HOR RIGOR ORG HOR kag gid kok ak 


S#PATCH NUMBFR 117 FOR TSSMCP CONTAINS 2 CARDS 


IFCNREFIAND FOURMASK),(1835]#0 THEN GO CLOSEITS3 06058630 
IFCNREF+#5 AND NINEMASK).01#28)#0 THEN 06058640 
$1 BY DDD 
$t DATE 12/27/74 . 
$1 THIS PaTCH CORRECTS a PROBLEM THAT WOULD CAUSE SOME FILFS TO 
$1 BE MARKFEN tN USF AFTFR A HALT/LOAD ON A SHARFDISK SYSTEM, 
BE he ne he eR he ie hee ai ate eg iia ie i Ri ge aig gk ko kk fOr tot kk 8 kkk ak ye 


~~] - Ee Bw Kee Bo ee Bw Ewe Ew | a 9 V90 900 0°09 —07007 


3 


po Bw Hive Tire Kee Eve Bie j 


S#PATCH NUMBER 148 FOR TSSMCP CONTAINS 14 CARD 


IF COUNT <0 THEN Go To START3 
$tRBY NON 
$22/5/75 
SISOFTWARE FLASH NUMBER 68 . 
S$t1F TWO LIBMAIN/DISKS aRe BOTH WAYTING FOR THE SAMe TAPE TO BECOME 
StREANYs ONF COPY WILL AF ASSIGNED THE CORRECT TAPE AND THE OTHER 
SICOPY OF LIBMAIN WILL RE ASSIGNED TO MTA, 


Bk RRR ORIG RIOR III IORI GIGI ROIS RRO RIO BGI OK GR IOIG KOK a kak 


S$#PATCH NUMRER 449 FOR TSSMCP CONTAINS 34 CARDS: 


REAL BVNsUBLKSZ»SPRy 
ROLLSCMECTSSSPaCh(41911841(8138210)3 
TF HNRryPr Nr@ 3 . 
TuFN FOR NT¢%215 STEP 4 UNTHL NT? DO RCLENTIMSI)8eHENTII 
ELSE FOR NT1%1220 STEP 4 UNTIL NT9+5 Do 
RCLENTI#10]¢=HENTIOS 
URLKSZteNT?2; 
TE CNTOteuf2).7583)] = 2) THEN % DFCIMAL ¢4-BIT) 
BcLrOltaz¢SPBtenT?2 DyV 30 + ¢NTO MOD 30 NEQ 0)98 ¥ SEGMTS/BLOCK 
NT901234844)3 % WORDS/RECORD 
If HDRTYPE GFQ 2 THEN & FIGURE OUT EOF USING B6700 FORMULA 
REGIN . 
STREAM(BERO § Wtenli4)93 
REGIN StteLOC ws Dtt= LOC Bs Dit=D144s SKIP 4 DBI 
20¢1F SB THEN DSteSET FLSE OSt#ReSFTI SKIP 1 SB)3 
ENDS 
BVDt#Ps % BITS OF VALID DATA IN LAST SEGMT 
tF HE91,£889) 
THEN IF CNT2t®HL21,0593)) 02 
THEN BEGIN NT12=12) NT4:2#33 END 
FUSE IF NT204 
THEN RFGIN NTG2e63 NT4t=73 FN 
FLSE RFGTN NT1teBs NT4tE5$ ENN 
ELSE REGIN NTGtees NTOIEA73 ENDS 
NT?22®CCH0141.02012AR)] MOD SPRIxXNTIx30) 
+CCBVN + NT4) nv C48 NIV NT1)93 
NTitere NT2 LSS URLKS7 THEN NT2 €LSE URLKSZ3 
NTOteNTy4€H7141,.720198) DIV SPBIXNT3X¢NTataeHL31,°329161)93 


FND3 
RCLU7I]s2IF HDRTYPE GEQ 2 THEN CNT24+NTaM15 DIV NTA © 1 
ELSE HE4]3 
SVOIDT 


HterMeSPACE(42)11830781938181013 
Hi8HR4178238210)3 
$sTSSMCPe 4208 
$1 B6700 TAPES WITH NEW HEANERS 
SITHIS CHANGF ALLOWS THe 85700 LrBRARY MAINTFNANCre TO LOAD FILES 


37240050 


27990410 
27993900 
27994200 
27994210 
27994220 
27994230 
27995310 
27995600 
27996300 
27996505 
27996510 
27996515 
27996520 
27996525 
27996530 
27996535 
27996540 
27996545 
27996550 
27996555 
27996560 
27996565 
27996570 
27996575 
27996580 
27996585 
27996590 
27996595 
27996600 
27996605 
27996610 
27996800 
28070000 
28274200 


StFROM TAPES WHICH HAVE RBFEN CREATED ON A B6700 WITH NEW HEADER 
StFORMATS OF TYPE 9 ANN 3. 
$:¢ PRI 4208 ) 


$#PaTeH NUMRFR 121 FOR TSSMCP CONTAINS 11 eaRnsS. 


SVOIDT 
OPTNtecNs PROGL29)1=03 
nr:eL0e as SytselOec Hs SKTP 1 DBS NStxSFT3 
$ SFT OMTT = NOT B65001,0An - 
1F BASOO AND CNOT ONFESTIN. £1297) THEN 
BEGIN STREAMCTMPy 8 TMPESSPACE(10))3 
DS:=32LI7T"%9R6700 TAPE TO TAPE NOT aLLOwEDe"$3 


SPOUTCTMP)3 
ARORTS$ 
PND} 
$ POP OMrT 
SSTSSMCPs 474459 
£1 LIBRARY MAINT, CORRECTIONS 


SITHIS CHANGE PERFORMS THE FOLLOWING! 

$1 AL CORRECTS MISHANDLING OF ESPNISK SEGMENTS DURING ABORT» 

$i Be MAKES HEADERS CREATED FROM COPYING B6é700 TAPE FILES “NEWR 
$3 TYPE HEADERS AwD 

$1 C, DISALLOWS TRANSFERS FROM RB6700 SOURCF TAPES OIRECT TO TAPE 


$1 BFCAUSF OF POSSIBLE RAN SFGMENTS PEFR ROW INFORMATION IN THF 
$1 86700 WFANFR, aTTEMPTS AT SUCH TRANSFFRS WrLL CAUSF ABORTION 
$t WITH THE FOLLOWING MESSAGE 3 

$3 “#R6700 TAPE Ta TAPE NoT ALLOWED", 

StWARNING? IN THF "COPY* CONTROL CaRD» THE MAXIMUM NUMBER OF FILFS PER 
$3 OUTPUT UNIT MAY BF CONFUSFD WITH THE <MFrD> OF aA FILE UF 
$3 THAT «MF 1D> +S A NUMBERS 7,E£, THE eMFID> OF THE FIRST FILE 
$I FOLLOWING THE WoRD "COPY" MAY NOT BE A NUMBERs 


$1C PRI 4211 ) 


S#PATCH NUMBER 122 FOR TSSMCP CONTAINS 1 CARDS, 


CNTI SlteSt+i1s BreSrs IF SCe”™ * THEN GO TO CNTSTALLY8=03 


$: BY KFK 

$i MATE 2/28/75 

$: MSa CENTRAL = NFTROIT 

$1 TH1S PATCH WILL ALLOW FOR BETTER SCANNING OF THE PB KEYIN, 
$8 IT IS NOW OK To HAVE SPACES AFTER A "#" OR “at, 


20566800 
20566817 
27996675 
28475605 
28475610 
28475620 
28475630 
28475640 
28475650 
28475660 
28475665 


08291125 


BO III IIS IOIO IOI IOI OIG IGIOGI OIG IG IOIOI I IOIOIGI IOI DIGI DIGIC IOIOIOIGIO IOI i RI i i le 


f#PATcH NUMRER 123 FOR TSSMCP CONTAINS 27 CARNS, 


STREAMCAISYOHLN eR PeTONLD. F4286I"1 Cte TOHLn, f42861¥%0, 
Dimer CMmMre7)J)3 


20571700 
20571709 


3909 


J 


hh 
pe 
ooo 


121 


121 
121 
121 
124 
121 
121 
121 
121 
121 
121 
121 
121 
121 
121 
12) 
121 
124 
121 
121 
121 
121 
124 
121 
121 
124 
121 
121 


122 


122 
122 
122 
122 
120 
122 
122 


123 


123 
123 


BEGIN 20571710 
SltzLoc A’ SKIP SB3 20571720 
IF SB THEN 20571730 
REGIN 20571740 
SKIP 39 SR} 20571750 

TF SRB THEN OS#=8 LIT*OFAST " 20571760 
FLSF 20571770 
BEGIN 20571780 

SKIP SpB3 20571782 

tF Sr THEN OSt28 LIT*OSLOW ” 205743790 

ELSE 20571800 

BEGIN 20571810 
CeSy:*Loc B3 20571820 

DOSt=6 LIT"OEU # "3 DSt=0 NEC 20571830 

JUMP OUT TO L993 20571840 

Os128 LIT*ONITSK ws 20571842 

La FNT 20571850 
FND 20571860 

FNA 20571870 
ELSE 20571880 
BEGIN 20571890 
SKk1tP 5 SBI 20571900 
DStsLITeOs OSte7 CHR} 20571910 
END} 20571920 
END3 20571930 


$3 BY Krk 

$! DATE 3/18/75 

$1 MSA CENTRAL © DETROIT 

$1 THIS PATCH WILL PLACF THE OUTPUT UNIT NAME OF A LIBRARY COPY 

$1 IN WORD 97 OF THF SHFET SO THAT WHEN A TS 1S DONF THIS NAME WILL 

$1 BE LISTEN ON THF OUTPUT MESSAGE. 

BOR IORI IORI IIS OI IOI ISI IGIGIGIGIGI GIG GI IOIGIG RIOR OUR GIGI IOI IOI GIGI ORI GIOIOI I ak 


S#PATCH NUMRER 124 For TSSMCP CONTAINS 2 cARDS, 
IF KIND®7 THEN FPBCFNUM*+3] ©¢uP(DUP) 87201521598] 38278510 
: 80(6:3989)3 38228520 
$: RY Kerk 
$8 §/7/75 


$3: MSA CENTRAL = DETROIT 

£1 WHEN USING a MULTIeFILF PBT THF SECONnD AND FOLLOWING FILES WILL 

$1 SOMETIMES BE PRINTEN SFVFRAL TIMES, THIS WAS CAUSED BY A CONFLICT 

$1 «N Tue USF OF A FIELn tN THE FPB OF A PROGRAM, THE SAME FIELD 

$1 THAT 15 USED To HOLD THE NUMBER oF COPIES ¢FrROM A FILE FQUATE) 

$1 IS ALSO USED TO HOLD THE PRN OF THE TAPE. ~ 

SiG IIIS ROO GIO R IOI IG RGIOI RIOR ISI Ig IOI OIG I IOICIOIOIG I OIOI II OIOI IGRI NOI NOIR HOR Ok den 


S#PATCH NUMBER 126 FOR TSSMCP CONTAINS 1 CARD» 


PROCVALI#03 20602860 
$t BY KFK 


oVvI s8vsIVve VvovrU0V sV90N 99 VV 890 CT9TT 7 99 9907590 7T70 


ve] 


9 OUT IJV OVI IS 


123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
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123 
123 
123 
123 
123 
123 
123 
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124 


124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
124 
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126 
126 


£1 
$3 
$% 
$3 
$1 
$3 
$3 


DATE 04/05/75, 
MSa eENTRal = neTROrr 

TurS PaTcu cORReEcTS aN FRROR IN CONTROLGARD TuatT COULM caUSF 
UNFEXPLATINED CONTRO}, CARD ERRORS AND SYSTEM HALTS: THE FRROR 
WAS CAUSED BY CONTRO!.CARD NOT RESETTING THF STACK VARIABLE 
"PROCVAL” BA@K TO ZERO AFTER A TYPED PROCENURE WaS CALLED. THUS 


THE NEXT TYPen PROCERURF CALLFD WOULD START wITH A NON ZFRO VALUE, 


BRO OIRO ORO I ROR OIRO OR RGIGIOI IORI OR RIOR ORR OIOIOI I IGIOI II I OIGIOR IOI Hg ORO IG NCS HOR ke ake 


S$#PATCH NUMBER 127 FOR TSSMCP CONTAINS 3 CARDS.» 


IF (T3:®SCAN) = ENDFI THEN 20608740 
GO TO PACK2s3 20608760 
$ VOINT 20608800 
$8 BY KeK 
$% DATE 04/08/75 
$1 MSA CENTRAL = DETROIT 
$3 THIS PATCH WILL CaRRFCT THE WAY CONTROL CARD HANDLES PACKET 
$1 FRRORS,. WITHOUT THIS PATCH THE PACKET WILL ONLY BE FLUSHED 


$3 


TO TwE NEXT FND OR WatT CARD NOT TO JUST THE END CARD. 


Ber OR ROR ROR ROR ROTOR GRO FOR IGRI OR IOIOK RIGOR I ORR UIOR RRR OR ROR GIORO ROR BOK IG dO kk 


S#PATCH NUMBER 128 FOR TSSMCP CONTAINS 3 CARDS. 
Jr OU GFQ O THEN & we HAVE AN OUTPUT UNIT 28304590 
If TU GEQ® O THEN & WE HAVE AN TNPUT UNIT 28304700 
IF oU GEQ 0 THEN & WE HAVE AN OUTPUT UNIT 28306500 

$% BY KFK 

$2 DATE 04/10/75 


MSa CENTRAL © DETROIT 

THIS PATCH WILL CORRECT AN ERROR IN THE NeW LrBMAIN/DISK PROGRAM, 
TF THERE WAS A "NULL LYRRARY TRANSFER” THEN ¥F THE INPUT OR OUTPUT 
UntT 18 DySk, WORD OwE OF MEMORY WOULD BE OVERWRITTEN BY A ZERO AS 
THE MCP TRIED To CLOSE THE UNIT. ONE OF THE MANY PROBLEMS CAUSED 
BY THIS SITUTATION WaS THAT NO USER CODFS WOULD RE ACCEPTED RY 
CONTROLECARD RFCAUSF THF MCP"S USFRCODECSTOREN IN WORD ONF) 3S ZERO, 
NO ERROR MESSAGE WAS GrVEN TO INDICATE THIS CONDsTTON AND THE SYSTEM 
CONTINUED To RUN BUT ALI. USERCODES WoULD BF ZERO, 


SUIS OO IOUS IO ISIS ISO IS IOIOR II OIC I ROSSI OIDIDIIOISIOIOIISISIOIOIDIIOI IOI IOIDI i iiok 


S#PATCH NUMBER 129 FOR TSSMCP CONTAINS 6 CARDS, 
SHEATC24),=MCP3 07262100 
SHEATr2438=MCPS 08276365 
HEADFReOVPaHF ANDERE SIteMCP 20289113 
STHECARDS OSs29 WDS) 20289240 
MCRUF+R7 I] s=MCP3 20289259 
SHFATC24] 3; =MCPq 22069212 


i=) p> ew Ewe Be Bw ee Bee Bow | 
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126 
126 
126 
126 
126 
126 
126 
126 


127 


127 
127 
127 
127 
127 
127 
127 
127 
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127 
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128 
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128 
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128 
128 
128 
128 
128 
128 
126 
128 
128 
128 


129 


129 
129 
129 
129 
129 
129 


$i BY Krk 

$8 DATE 04/42/75 

$1 MSA CENTRAL © DETROIT 

£3 THIS PATCH WILL CaUSF PRNPBT/DISK AND AUTO*LDCNTRL 

$1 TO BF EXFCUTFN WITH THF MCP"S USFRCODE. THIS INFORMATION 

$: 1S PLACEN INTO THE LOG FILF. ALSO WITH THtS PATeH 

$1 PACKET PAGES WILL BE GIVEN THE MCP"S USER CODE Nat 

$1 THE USER CODE "PACKET", 

BI ISIS II IO IG IO IGOR ICID IOI IOR ISIS IOII IGE IIOI II IOI IGE IOI IGI ik 


S#¥PATCH NUMAFR 131 FOR TSSMCP CONTAINS 2 CARDS» 

USFRSt rFCTIsSCAN)#FOUA) THEN GO INCSCI 20605700 
IFcTimeSCANJ=PERIA THEN Go INCSC3 20605702 

$1 BY KFK 


$t DATE 04/10/78 

$t MSa cENTRAL @ DFTROIT 

$1 THIS PATCH WrLL GrVE A CONTROL CARD ERROR IF 

$! EATHER THE EQUAL, SIGm oR USER CoDE IS MISSING ON A 

$: USFR CONTROL CARD» : 

BR ote te ie te ee eK kK TORII HORROR a ROR ki REO IOR Gi eG Nk 


S#PATCH NUMBER 132 FoR TSSMCP CONTAINS 1 CARDe 
le FASZ GTR O THEN LIRRARYHFLPC5) FLSE fUteOUteCFPBPTRis0)913 28246200 
$8 BY KEK 


$t DATE 04/90/75 

$t MSa CENTRAL © DETROIT 

$1 THIS PaTcu WILL CORRecT A CONnYTION tN LIAMAIN/DTSK THAT 

$$ WOULN CAUSE A LIBRARy TAPr TO Br CREATEN WrTy NO LyBRARY 

$1 FILES ON IT, THIS TAPE RESULTED ON A_NULL LIBRARY TRANSFER, 

$t ALSO CORF SPACE FOR THE BUFFFRS IS NOT OBTAINED UNLESS THERF ARE 

$: SOME FILES TO BE COPTED, 

8 Gk RRR IORI IGIOIGIOR OI ICICI IOI IUGR IR UIGIOIGR IORI NOIR IOI IORI ID; I OR I GIORAIOIOI I Ig IOIOIC GIO OIC sk 


$#PATCH NUMBER 133 FOR TSSMCP CONTAINS 1 CARDe 


NSr#BLT*sxOxgOOO"s OSreBLITMOPACKET™S 07418700 
$1 BY KEK 
$1 DATE 04/42/75 
$2: MSa CENTRAL = DETROIT 
$3 WITH SOME SYSTEMS THF FIRST 1/0 DONE TO A PRINTER FOR 
$t THe PACKET PAGE WILL CAUSE THE PRINTER TO HANG Up FOR 
$! EXTENDED PERIOD OF TIME. THIS WAS CAUSED BY DOING AN 
$t INVALID PRINTER OPERATION, THAT IS NO PRINTING AND NO 
$t PAPER MOVEMENT. 
$I THIS 1/0 RESULTFN WHEN THE MeP CHANGFEN THE I/0 
$1 DFSCRIPTOR FOR THE ARORTEND LINE SO THAT THIS LING WOULD 
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129 
129 
129 
129 
129 
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131 
131 
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131 
131 


132 


132 
139 
13? 
132 
132 
132 
13? 
132 
132 
132 
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133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 


$: NOT RE PRINTEN, 
$3 NOW A SINGLE SPACr 1S GENFRATED., 
$1 THE MCP WOULD RECAVER FROM THIS CONDITION 


$t AFTER ARQUT 90 SECONDS, 
BO IORI IO IR IOR RO ORO IORI OR IGOR IOI OIIOR RIG IORI OIE OR IOI GIOR SR IGRI IOI I GIGIOIOR IOI dea 


S$#PATCH NUMBER 134 FOR TSSMCP CONTAINS 1 CARD, 


‘ % FLSE IF U=18 THEN PCNTRECTORYSEARCHC™MFIDsFID®1390DFLI} 28446300 
! BY 

$3 DATE 04/03/78 

$1 THIS PATCH CAUSES HFANER SPACE FOR DUP|.ICATF DISK FILES To BE 

$1 FORGOTTEN, PREVIOUSLY» IF THE LIBRARY MAINTENANCE TASK INVOLVED 

$t MANY DUPLICATIONS» THF HFADER SPACE OF EACH DUP) ICATE FILE WAS 

$t LFFT IN CORE EVENTUALLY RESULTING IN A “"NO"MEM" CONDITION ON 

$t MIX ZERO. 

BRO ROO IOI IOI SIO IG IOI II IOI IIOI RIOR GOI IOIG IOI IOI III I EI kok 


S#PATCH NUMBER 135 FOR TSSMCP CONTAINS 4 CARD, 
MOVEC1OsBeT14293 44323150 
$3 BY KekK 
$3 NATE 04/92/75 
$1 THIS PATCH CORRECTS A CONDITION THAT WOULD CAUSE AN INVALID 


$t ADDRESS oN A HALT LOAD IF MEMORY MOD ONE IS OFF 1.INEs 
SOOO IOI i OI IOS OIIOIOIOIGIGIOIGIOI I GIGI IOI OGIOIOI SI III IOI GIGI OI I IOI ORGIOI i ie 


$#PATCH NUMBER 136 FOR TSSMCP CONTAINS 25 CarDS. 
LABEL PEs TFePAd — 18701010 
SWITCH StePAsPEs Tre TTeUSeDeTNsPReLOTsTMROADOWNS 18701400 
Cis IF (Ttaesta) GEQ €=5) AND 14 1.60 6 THEN 18710100 
AFGIN GO TO SEI1465)3 18710200 
Pat 18710240 
$ SET OMIT = NOTCPACKETS) 187102492 
IF CtsePSFUDQMIEXCP1MIX]) GEQ@ 32 THEN 18710244 
L4t=PACKETACT(CI™32]3 18710246 
$ POP OMIT 18710248 
60 TO INITIATES 18710249 
Prt 18710250 
$ SET OMIT = NOTCPACKETS) 187102592 
IF CIR ®PSEUDMMIXEPIMIXI) GEQ@ 32 THEN 18710254 
RBFGIN 18710256 
T4s=PACKETERRE I"32)3 18710258 
PACKETERREI@32)4 "TRUE 3 187102460 
ENDS 18710262 
$ POP OMIT . 18710264 
60 TO INTTIATES 18710266 
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136 
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136 
136 
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$ 


$t 
$1 
$3 
$3 
$3 
$3 
$3 
$1 
$4 
$1 
$3 
$1 
$3 
$3 
$3 
$8 
$3 
$3 
$1 
a] 
$3 
$1 
$3 
$1 
$1 
$3 
$1 
$1 
$3 


$t 


Tre 

SET OMIT © NOTCPACKETS) 
TF CLSSPSEUNDAMIXCPIMIXI]) GFEQ 32 THEN 
T4Ot=@PACKE TERRE I°32]3 
POP OMIT 
GO To INITIATES 
BY KFK 
DATE 04/22/75 
MSa_ cFNTRAL = prTROTT 

TurS PaTcy AnnS TuRrr NeW Time FUNCTTONS? 

1) TIMEC#3), WILL RETURN THE CURRENT STATUS OF THE PACKETERR BIT 
2) TIME¢™4)» THIS FUNCTION WILL SET THE PACKETERR BIT 
3) TIMEC™5)» WILL RETURN THE CURRENT VaLUr OF PaCKETACT,. 

THESE THREE FUNCTIONS WERE ANDED TO GIVF a PROGRAM SOME CONTROL 
OVER THE PACKFT, NOw A PROGRAM CAN "KILL® A PACKET BY A TIME 
FUNCTION RATHER THAN BY DS#ING TTSELF WrTH A RUN TIME ERRORCDIV 
BY ZERO» ETC), ALSO,A PROGRAM CAN *SEEW IF a SISTER PROGRAM 
HAS RUN INTO TROURLF: «ND A PROGRAM CAN TrLL HOW MANY JOBS ARE 
RUNNING FROM THE PackFT AT THIS TIME. 

TrMecw4) wih RetuRN THE VALUF OF PACKETFRR BrFORE 1T SFTS Te 


EXAMPLES: CALGOL) 


IF A LSS 0 THEN 3 WE HAVE A PROBLEM 
BFGIN * LETS KYLL TarS RUN 
Bt=TIMec*4)3 % KILI PACKET 
Gn To EXIT? % EXIT PROGRAM 
FNM s$ z 


ANn tN A&A PROGRAM RUN FROM THF SAME PACKFT aT THE SAME TIME 


IF BOOLFANCTIME(#3)) THEN GO TO EXITS & ERROR IN OTHFR PROGRAM, 


IF THE FrRST PROGRAM FINDS A PROBLEM ANN WANTS To STOP THIS RUN IT 
SETS THE PACKETERR B1T THEN THE SECOND PROGRAM WrLL “SEE® THIS 
AND ALSO GO TO EOv, 


18710268 
18710270 
18710272 
18710274 
18710276 
18710278 
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S#PATCH NUMBER 


$1 


138 For TSSMCP CONTAINS 3 CARDS, 


Te 71TPMTX NFQ@ O THEN 
1F ¢TtspSFUDoMrXrZIPMIXI) GEQ 32 THEN 
PACKETERRET=32]22TRUES 
RY Kerk 
nate 04/23/79 
MSA CENTRAL = DETROIT 
THIS pATCH WILL SFT THE PACKETERR BIT IF THERF 
1S A ZIP ERROR IN THF PACKET. 


206081192 
20608114 
20608116 
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$#PATCH NUMBER 140 FOR TSSMCP CONTAINS 22 CaRDS,; 


9 
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136 
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136 
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138 
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140 


RFGIN Tea TNX @©540000000000000981768138110)3 02287240 

IF SFPARATE THEN TeT&CLUN#29)03984781) 02287245 

FLSF TeT&CLUN#999(288472113 02287250 

& VOInT 127297501 12726500 
$ VOInT 12739501 12728500 
TF KIND=1 THEN Mra eee regs »LOD) 38280500 

ctr SEPARATE TH 1 ELSE Os or 14216) 38280600 

ELSE 38280700 

IF NOT SEPARATE THEN 38281600 

IF CTYPE«<2?0) THEN 38281700 
HFEADFRI73I]¢PCDUPeLODI2C@20)(2724216)3 38281800 
MPALPHA]+CuPCDUP) 9&8 C@60000)CCTFI3 38590000 
IF TYPE<20 THEN 38590100 
MEALPHAJ©CaePCOUPXIRCIF SEPARATE THEN 1 ELSr @20)9(27142:6])3 38590200 

TF NOT SEPARATE THEN MralLPHAJec*#PeDUP) e216 2784236)3 38592100 

ENDS 38594000 
IF NOT SEPARATE TwEN MFALPHAI+PCDUPeLOD a L271a2t6)3 38594100 
MCALPHA), C2081] «13 38594200 
IF FIBC14),CFFJ4F1B694),°CF] THEN 38594300 
IF SEPARATE THEN PCWAITINC@4000100000+0eU) DEI.) 38741000 
FLSF PCWATTIO(@4002000000500U) DEI.) 38741100 

IF NOT SEPARATE TuFN PCWATTIO(@4000100000,00UssDEL)3 38742100 


$1 BY KFK 

$2 DATE 5/7/75 

$1 MSA CENTRAL = DETROIT 

$3 THIS PATCH CHANGFS THE USF OF THE SPO OPTION *SFPARATF™, IT NOW 
$1 1S USFD TO CONTROL Tur PRINTFR SPACEING AROUND Tuk LABLE Paar, 

$t THAT IS tF SEPARATE +S RESET THEN ONLY A DQUBLE SPACE 1S DONE 

$1 AFTER THE BEGINING LABEL AND BEFORE THE ENDING LABELe IF IT IS 

$1 SET THE OPERATION OF THF PRINTER TS AS IT WAS BEFOREC & FULL 

$3 PAGE FOR THE LARFL RFCORD),. 


$t TutS WAS nONF TO wELP WITH THE ENERGY CRUNCH AND PER CUBE REQUEST, 
$#PATCH NUMBFR 141 FOR TSSMCP CONTAINS 452 CARDSe 00000000 
LS3 1 SC # hw THEN yr Sc #¢ LEFTARROW THEN 02615100 
BEGIN St t= SI + 43 6O Ta LSS END? 02615200 
IF SC & LEFTARROW THEN GO Ton EXITs 02615300 
$ VOInNT 06135001 08095000 


LEFSELAABAAARTAA LASALLE LH LAAEAALYAAALFALAASY LESLEY ELEL LAL XLSSLLEEAZALALALSRXEZOBOISOSO 
Fe RECS R ELST SE SNOW ET ELST SHES SEER ERENCE eee DeLee Tene ee eee eer eee S200 22100 
* 


*#%08095150 
zu PRYNTOrTRECTORY *%08095200 
Ze i a i «208095250 
Ze | | *%08095300 
%* PURPOSES THIS PROCFNURF HANDLES THE PD» FX» LFe LC AND LS *%08095350 
Z* MESSAGES, aLL MESSAGES ARE FORMS OF TwE PD MESSAGE *%08095400 
x» EXCEPT FOR CERTAIN OIFFERENCES, THE PD MESSAGE WILL *%08095450 
Fx LIST THE NAMES OF THE ODESIREDN FILES AS WELL AS *%08095500 
3% CERTAIN PIECES OF INFORMATION TF REQUESTED. *%08095550 
%* *%08095600 
Xx SYNTAX? THE FORMAT OF ALL THE KFYIN MESSaGES WITH THE *%08095650 
Su . EXCEPTION OF THE LF MESSAGE IS AS FOLLOWS! *%08095700 


su S90 95 99V 80 00 T3590 920 990 99 3990 C—7 99N JV 89090 9 
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144 
144 
144 
144 
144 
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144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 


<MESSAGE> <ctbr SPreclereR> <OPTION@LIST> 
<MESSAGE> tee PD / FX / LC 7 LS 


<FILF SPECIFIFR> st <FILENAME> / <FILENAME> %/" 
<FILENAMF> 


<OPTIONWLIST> #82 <EMPTY> / <OPTION> / eOPTION? » 
<OPTION@LIST> 


<OPTION> tte RECS / LAST / DATE / SAVE 7 SIZE / 
CREATOR / SecURTTY 7 ALL 


<FILENAME> st (FROM 1 TO 7 CHARACTERS OPTIONALLY 
FNCLOSFD IN QUOTES] / & 


THE SYNTAX €OR THE LF MESSAGE 1S3 


LF <USERID> <opTION#=LIST> 


SFMANTICSt THE F¥Xe Lee Les AND bs MESSAGES ARF JUST 


MODTFIFD FORMS OF THE PD MESSAGE! THE FX MESSAGE 1S 
THE SAME AS A PD EXCEPT THAT ONLY THE FXPIRED FILES 
ARE LISTED. THE LF IS THE SAME AS A PDE/= EXCEPT 
THAT ONLY THE FILES BFLONGING TO THE SPECIFIED USFR 
ARF LISTEN, THE Uc MESSAGE 1S THE SAME AS A PD 
<FILF SPECrFYIFR> CREATOR", THE LS MESSAGE 1S THE 
SAME AS "PD «FILE SPECIFIER> SECURITY»CREATOR", 


THF OPTIONS SPECIFY WHAT aNNITIONAL INFORMATION 
1S TO BF LtsTrn BESIDES THE DFFANLT INFORMATION, TF 
AN UNRECOGNYTZABLE WORD IS ENCOUNTERED iN THE OPTION 
LIST» IT IS IGNORED, THE AVAILABLE oOPTIANS ARE? 


RECS ™ NUMBER OF RECORNS IN THE Files CSPFCIAL LOGIC 
1S INCORPORATEN TO THE LIST THE CORRECT NUMBER 
FoR BACKUP FILES). 


LAST ™ LAST ACCESS DATE. 

DATF = CREATION DATF, 

SAVE © SAVE FACTORs 

SIZF © SIZE OF THE FILF IN SEGMENTS, 


CREATOR = PRIVILEGED USERCODE ASSOCAITFO WITH FILE. 
(FoR BaCkUP FILES THE LABE|. oF THE PRINT FILE 
AND THe NaMe OF THF PROGRAM CREATING THE RaCKUP 
1S ALSO LYSTFN). 


SECURITY = ACCESS PRIVILEGES OF THE FILE® Teor 
LOCKED, UNLOCKED» PUBLICs PRIVATEs® FREE, 


*%08095750 
*%08095800 
*%08095850 
*%08095900 
*%08095950 
*%08096000 
*%08096050 
*%08096100 
*%08096150 
*%08096200 
*%08096250 
*%08096300 
#%08096350 
*%08096400 
*%08096450 
*%08096500 
*#%308096550 
*%08096600 
*%08096650 
*%08096700 
*%08096750 
*%08096800 
*%08096850 
*%308096900 
*%08096950 
*%308097000 
*%08097050 
*ZORO971I0ON 
*%08097150 
*%408097200 
*%08097250 
*%08097300 
*%0A8097350 
*%¥08097400 
*%08097450 
*%08097500 
*%08097550 
*%08097600 
*%08097650 
*%308097700 
*%08097750 
*%08097800 
*%08097850 
*%08097900 
*%08097950 
*%08098000 
*%08098050 
*%08098100 
*%08098150 
*%308098200 
#%08098250 
*%08098300 
*%¥08098350 
*%308098400 
*%308098450 


Bo ORIG iO Gi dob ki kg RR IGIOR oii i ion i io i iOR RGiGk dodo ke 808098500 
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@ 
6 
PROCENURE PRINTNDIRECTORYCRUFF 93 08098600 fn 141 
VALIF RUFFS 08098650 np 141 
RFAt. BUFFS 08098700 n 444 @ 
BEGIN 98098750 MN 143 
. 08098800 nm 141 
INTEGER 08098850 7 141 @ 
Vg % NORMALLY cONTATNS OPTTON NUMRFRE 08098900 n 144 
Je % JUNK, 08098950 D 444 
Codes % = 9 = PD, 08099000 D 141 & 
Ze 4" €X, 08099050 nM 141 
¥=2 2 be, 08099100 n 141 
= 3° Le, 08099150 n 144 & 
¥= 4 = 158, 08099200 Dp 1414 
08099250 Dp 141 
REAL 08099300 nm 141 @ 
ME INe % MFID OF NeSTREN FILE OR 1 TF wan, 08099350 p 1414 
FID» % FID OF DESYRED FILE OR =1 IF “=, 08099400 po 141 
Ce» % ADDRESS or N1SK HEADER. 08099480 D 141 e@ 
De % MFID oF LaST FILE FOUND BY SEEKNAMe 08099500 ND 141 
E » 2 FIN OF Last FILE FOUND RY SEFKNaAM, 08099550 nm 141 
N» % WORK VARTARLF USEM BY SFEKNAM TO SAVE INFO, 08099600 n 141 e 
1; % NORMALLY UuSEM TO SAVE DEST. tNDFX, 08099650 n 141 
INFO? % BIT MASK FOR OPTIONS SELECTED, 08099700 PD 141 
LABFLRECs ¥ ADDRESS OF LABEL RFCORD FOR PRD ¢ If LC ). 08099750 nO 141 @ 
USERID» % USFRIN TF LF. 08099800 n 141 
Xs % JUNK, 08099850 n 1414 
08099900 nm 141 @ 
ARRAY 08099950 D 14414 
HOR(¥]e & DESCRIPTOR To DISK HEADER, 08100000 O 141 
XLSTC*I3% SOME DAY WE MAY ALLOW EXCEPTION LIST. 08100050 0 141 @ 
08100100 Dp 141 
ROOLEAN 08100150 np 141 
PRDTOG» % TRUE IF SFLECTFD FILF TS A PADe 08100200 n 141 & 
FOUNDAF ILE ¥ TRUr TF WE LISTFN OUT aT LEAST ONF FILF, 081900250 9 14) 
08100300 pop 141 
LABEL EXTTeDROPOUT»sDUMMY,OPTIONS3 08100350 ph 141 & 
DEFINE NUMOPTS = 7#3 — 08100500 D 141 
DEFINE PD = CCODE * O9#> 08100550 nm 141 
EX 32 (CODE = 19%, 08100600 n 141 @ 
LC = (CODE = 2)#, 08100650 D 141 
LF = (CODE & 35#, OB100700 DP 141 
LS = (CODE = 4y#3 08100750 D 141 ) 
NEF ING . 08100800 nm 141 
PRIMARYUSFR = HMRC 2I#> % PRrv, USFR eOnF,. 08190850 npn {41 
SaVFFACTOR = HDRE3).f2t1018, & SAVE FACTOR! 08100900 n 144 ) 
LASTACCESSDATE = HDRE31.f12916]#» & LAST ACCESS DATE, 08180950 D 441 
CREATIONDATE EF HDRf3].(30:18]#» % CREATION DATE, 08101000 OM 1414 
GUARDFILFMFIN = HOR S]#s % MFID OF GUARD FILE. 08101050 pn 141 @ 
GUARDFILFFIN = HDRI6)#s % FIn OF GUARn FILE, 08101100 nm 141 
EOFPOINTER = HDRE7)#. % EOF POINTER: 08101150 D 144 
SFGSPERROW = HDRIB1#s % SEG. PER ROW. 08101200 D 1444 r 
NOOFROWS = HDRE9]+043:5]#» % NO. OF ROWS DECLARED. 08101250 D 141 
HFADERANORESS = HDRe(CFI#3 Z CORE ADDRESS OF HEADER, 08101300 pb 141% 
Lkketetetekaekhtooee 6 U RROU TY N £ SS #8 #0 yO eee OBI01350 A 144 @ 
SUBROUTINE GETREADYS 08101400 Db 14% 
Yowmeetesmen sem eneae 08101450 D 141 
BEGIN 08101500 D 14% ) 
@ 


COMF 82 RUFF.£98633 

BUFF t= cTteBUFF)"F45ty51 = 93 

InFo #= 0 & CLC ow LF OR 18904284781) & LSC4324791)3 
ENN OF GFTREADY? 


SUBROUTINE GFTFILFESPFeIFIERS 
+ 4 Ts ee eer ee Se eee sf | 
BFGIN 
NAMEINCMFINeT)s 2 GET MFInN COR USERCONE IF “Ley 
IF Le THEN USFRIN := MFIns % FIRST THING +S USFRID FOR LF, 
1F MF TD 2 "ee " OR LF THEN 
MFIND 8 » 43 
NAMEINCFIDe T73 
If FIn = */ *" THEN % GET FID 
REGIN 
NAMEINCFID 
NAMEIN¢GN,T 
END ; 
ELSE % NO FIN SPECIFIED IMPLIES FID oF "aR 
BEGIN 
N t= FID$ 
Fip t= =43 
END} 
IF Fine€6:6] = LEFTARPROW OR LF THEN % NO FID SPECIFIED 
FIn 13 ™ ts . 
FND OF GFTFILESPECIFIERS 


oT)3 
3 ¢ GET NEXT ITEM, 


SUBROUTINE PROCESSOPTYONLYISTS 
Y wate Fae RHE ROMO Re, REE we 
BEGIN 
WHILE N # "eo " DO ® ACCUMULATE oPTTONS 
BEGIN 
FOR 1 t= =1 STEP 1 UNTIL CNUMOPTS = 2) DO 
DUMMY?! FF PC,OPTIONSsTe4e2L0D0) = N THEN % MATCHES AN OPTION WORD 
BEGIN 


08101550 
08101600 
08101650 
08101700 
08101750 
08101800 
08109850 
08101900 
08101950 
08102000 
08102050 
08102100 
0A102150 
08102200 
08102250 
08102300 
08102350 
08102400 
08102450 
08102500 
08102550 
08102600 
08102650 
08102700 
08102750 
08102800 
08102850 
08102900 
08102950 
08163000 
08193050 
08193100 
08103150 
08103200 
08103250 


INFO t# INFO OR TWOCT+1)3 & SFT BIT CORRESPONDING TO OPT08103300 


GO TO DROPOUTS 
END 
FLSr &® CHECK FOR "ALL" 
Tr Noe PALL " THEN % SFT aLL OPTION WORD BrTS, 
INFO t# NOT O3 


DROPOUT? . 
NAMEINCNe TIS & GFT NEXT OPTION WORD, 
IF Nm ", ™ THEN NAMETDCNeT93 & SKIP OVER COMMA, 
END} 
Go TO EXITS 
% 
OPTIONS est "RECS ", % OPTION O CINFO,£4721)) 
"LAST ™, % OPTION 3 CYNFO,r 46219). 
"DATE ©, & OPTION > CINFO.6 453137) 
“SIZE ™, &% OPTION 3 CINFO.l 44213) 
"SFCURIT™, % OPTION 4 CINFO.64381)) 
MERFATOR™, &® OPTION 5 CINFO,14291)) 
"SAVE 3s & OPTION 6 CIENFO,641819) 


FXIT! 
En OF PROCESSOPTIONLIST3 


08103350 
08103400 
08103450 
08103500 
08163550 
08103600 
08103650 
08103700 
08103750 
08103800 
08103850 


08103900 
08103950 


08104000 
08104050 
08104100 
08104150 
08104200 
08104250 
08104300 
98104350 


seygovV VU90 Vag 9 ee 998 09IT JV 807 89900 SO C090 99 S09 929 0070”0 SOV 990 VI V8 VvIsBV VI VIVTVSI 


144 
144 
144 
144 
144 
1414 
144 
1414 
144 
144 
144 
144 
141 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
1414 
141 
144 
144 
1414 
144 
1414 
144 
144 
144 
144 
144 
141 


SUBROUTINE GFTSET3 08104400 
fk aaa Ra al did 08104450 
BEGIN 08104500 

IF FX OR INFO # O THEN & WE WILL NEFN THE HDR: 08104550 

HDR t= TtOQUF & SPACEC30) CCTC13 08104600 

END OF GETSET3 08104650 

% 08104700 
ROOLFAN SUBROUTINE WEGOTAFILF3 08104750 

J cet eta ene eee OMAR 08104800 
RFGIN 08104850 
SEFKNAMCMF IN eF ID ereDeFaNoXLST)$ & FIND A FILE? 08104900 
WEGOTAFILF tx C ¢ 0% % C 1S ADDRESS oF NISK HFADER, 08104950 

Eu) oF WEGOTAFILE? 08105000 

% 08105050 
ROOLEAN SURROUTING WREWANTTHISFILES 08105100 

J eae ate e eens en ae Hen aeNRee 08105150 
BFGIN 08195200 
PBDOTOG 3= ¢¢(D EQV "PRD *) = NOT 0 OR (CD EQv "PUD wt) 08105250 

= NOT OD3 08105300 

IF HFANERANDRESS #¢ 0 THEN % WF NEED THE HEADER. 08105350 
DISKWAITC*HEADFRANARESS,»305.0)3 & RFAN HEADER, 08105400 

IF LF THEN % CHECK TO SEE IF WE WANT THeS FILF. 081905450 
WEWANTTHISFILE ¢= PRIMARYUSER = USERIN 081605500 

FLSE 08105550 

IF FX THEN 08105600 

RFGIN 08105650 
STREAMCATECALCULATEPURGEC™SAVEFACTOR) oXserXJ)5 08105700 

REGIN 08105750 

S! :* Loc at 0S t* 6 OCTS 08105800 

FNn? _ . 08105650 
WEWANTTHISFrLe te X > LASTACCESSNATFS & TRUE TF FILE EXPYRFEN08105900 

END 08105950 

ELSE 08106000 
WEWANTTHISFILF #2 TRUE} 08106050 

FNN OF WRWANTTHISFILF? 08106100 

% 08106150 
SUBROUTINE PUTINFILENAME 3 08106200 

% setasnrene seserenenaaes 08196250 
BEGIN 08106300 
STRFAMCA8=0 ! Ds ee RUFFIS & SFT UP FIle NAME. 08106350 

BEGIN 08106400 

St t= LOC DF 08106450 

NS t= LIT * "3 08106500 

2? ¢ St t= St + 13 OS t= 7 CHR# DS t= LIT “/")3 08106550 

nr t= ny @ 43 08106600 

nS t= 9 LIT ™ 3 & NEED 2 SPACES To ALLOw FOR ARROW, 081906650 

A ts DY3 08106700 

ENDS 06106750 

T t= Ps & SAVE OFF DEST. INDEXe 08106800 

END OF PUTINFILENAMF? 08106850 
08106900 

SUBROUTINE DORECS; 08106950 

+4 ea os a mata 2 ee 08107000 
REGIN ; ; 08107050 
STREAMCAtatF PRBDTOG THEN FOFPOINTERXS FLSF EOFPOINTFRe1 87)3 08107100 
08197150 

BEGIN 08107200 


ooo 0 D090 0090 V00 9990 0909079 gs0g VT VT BI V VVVVVSOG VIIVIIVV VII VVGFT BIN VVIVI IISA 


144 
141 
144 
141 
144 
141 
141 
141 
1414 
141 
144 
144 
144 
144 
144 
141 
141 
144 
141 
144 
144 
144 
141 
144 
144 
144 
141 
144 
144 
144 
14% 
144 
144 
141 
144 
144 
144 
144 
141 
141 
144 
144 
141 
144 
144 
144 
144 
144 
141 
141 
144 
141 
141 
141 
144 
144 
144 


e ®@ 


NS 1% 9 LIT “RECORNS: “3 
S1 i= LOC A$ 


NS t= 8 NECS x CONVERT NUMBER OF RECORDS TO DEC, 
A t= DI3 & SAVE oFF DY BEFORE ZERo SUPPRESSING, 


Nt s* NI = Bs 
NS t= 7 ells 


FN 
T $= P$ &% SAVE DESTINATION ANDRESS, 
END OF NDORECS3 


SUBROUTINE DONATEORLASTS 


¥ eR Oe we SSB eae Pe eee y 


BFGIN 
STRFAMCXS2LX) 93 
RF GTN 
St te x3 
AS te B NECY & CONVERT DATE TO DECIMAL. 
END; 


GIMENATECKXI,6CFE1,"X)# &® CONVERT JULIAN DATE 10 6 DIGITS, 


STREAMCAS=(1=1) 8 Xe T)3 
BEGIN 


A ¢ DS $= 40 1.1T "ACCESSED? $$ JUMP OUT Ta L193 


NS 35 9 LIT "CREATED! "3 

Ld: 
St 3*® LOC X3 
Ste ST + 23° 
3 ¢ OS te 2? CuRS OS te LIT "/")3 
D1 t= nr = 43 % FRASE THF FXTRA SLASH; 
A t= nr? &% SAVF MEST. INDEX, 

ENDS 
T t= PS % SAVE DESTINATION ADDRESS, 
END OF DODATEORLAST? 


SUBROITING DOSTZF; 


GF Pere Paes SO 


BFGIN 
NT2 12 NOOFROWSS & NO. OF ROWS DECLARFD. 
NTi := OF & NUMRFR OF ROWS PROCESSED. 


FOR J t= 4 STFP 4 UNTYL NT? pO & CHECK TO SEE te ROW FX1ISTS, 
IF WORF +9) # 0 THEN NTq &8= NT? + 43 & BUMP UP COUNT. 


STREAMCAISNT (xSEGSPERROW ¢ T)3 
BEGIN 
N§ t® 10 LIT. "SEGMENTS: "3 
Sy t= LOc A} 
NS t= B& DEC} 
A t= DI3 
NY 9 OF = Bs 
05 #3 7 Fills 
FNn}3 
T t= P$ X SAVE DESTINATION ANnNRESS, 
EnD OF NOSIZE3 


SUBROUTINE DOSECURITY?: 


BFGIN 
Jo: YF PRIMARYUSFR = O THEN O % FREE FIle 


FLSF TF GUARNFETLEMF InN = MARK THEN & UNLOeK OR PuRLIC 


08107250 
08107300 
08107350 
08107400 
08157450 
08107500 
08107550 
08107600 
08107650 
08107700 
08107750 
08107800 
08107850 
08107950 
08108000 
08108050 
081081400 
08108150 
08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08108500 
08168550 
08108600 
08108650 
08108700 
08108750 
08108800 
08108850 
08108900 
08108950 
08109000 
08109050 
08109100 
08109150 
08109200 
08109250 
08109300 
08109350 
08109400 
08109450 
08109500 
08109550 
08109600 
08109650 
08109700 
08109750 
08109800 
08109850 
08109900 
08109950 
08110000 
08110050 
08110100 


vy uooedI9v SI 9 90 90 990 V7997 9999S S0 e909 o€07"7 9799090 070997 99 070797 saI0 V0 9097 990 00"”79 3 


1414 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
1414 
144 
144 
144 
144 
141 
144 
144 
141 
144 
144 
144 
144 
141 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 
144 
144 


IF GUARDFILEF IN = MARK THEN 1 % UNLOCKED 
FLSE 2 % PURL IC 
FLSF IF GUARDFILEMFIN < © THEN 3 3 PRIVATE 
ELSE 43 % LOCKED 
STREAM(¢J & ASHGUARNFILEMFINDe REZGUARNFIILFFIDs T)3 
BEGIN 
NS :2 40 LIT eSECURITY: 3 
Clo 32 cl + J3 
GO TO FREF3 
GO TO UNLOK;: 
GO TO PUBLIf3 
GO TO PRIVATES 
LOCK: NS t= 6 LIT "LOCKED"S GO TO EXIT? 
PRIVATESNS t= 92 LIT #PRIVATE CSFCURED WITH "3 
St t= LOC AS | 
9 ¢ St t= SY 4 48 DS t= 7 CHR OS te LIT #/")3 
At se DT = 1s) 
NMS s® LIT %)"; 
G0 TO FXITS 
PUBLIC? 0S #8 6 LIT "puURLIC™S GO TO EXIT: 
UNLOK? ns t= 8 LT tiyNLOCKFD™S GO TO EXrT3 
FREFS OS te 4 LtT *"eREENS 
FXITS Jt? py3 


T t= Ps % SAVE DESTINATION ADNRESS. 
END OF NOSFCURTTYS3 
% 
SUBROUTINE DOCREATOR} 


3 Bema Sareea BPSeemae Pune we 


BEGIN 
SSFT OMIT = PACKETS 
1F Jt=¢PBOTOG ANN ¢F£.730818) = 1)) THEN & REEL 14 OF PBN 
SPOP OMIT 
$SET OMIT = NOTCPACKETS) 
TF JtscPBDTOG AND ¢F.f42%6) = 19) THEN % REEL 4 OF PBD 
SPOP OMIT 


BEGIN 
IF LABELRFEC = © THEN |,ABELREC t= Spacec30y3 
NUSKWATTC@LABFLRFC®30-HDRI10]+2)3 

ENDS: 

STRFAMCJ ¢ Bts PRyMARYUSFREOs, Cr=ePRIMARYUSER? 
Dt*sLARELREr YNX 125 T)3 

BEGIN * 
NS t= 9 LIT *eREATOR: "3 
R ¢€ NS t= 4 Lert *NONFY$ JUMP OUT TO Lo 23 
St t= LOc c3 
Sr t= SJ] + 43 
NS $= 7 CHR} 


L2! 

J € 98 t= 2 LIT * ¢"3 

ST t= p3 
? ¢€ St t= St + 12 OS #3 7 CHRIS NS 22 1.9T “"/™)3 
Dt t= Df = 13 DS t2 A LIT " OF HS 
2 ¢ SI t= St + 43 DOS 32 7 CHR} NS t= LIT "/™)3 
Nr t= Or = t3 NS t= LIT M)”" 93 

J te nr 

ENN? 


98110150 
98110200 
08110250 
08110300 
08110350 
08110400 
98110450 
08110500 
08110550 
08110600 
08110650 
08110700 
08110750 
08110800 
08110850 
08110900 
08110950 
08111000 
06111050 
08111100 
08111150 
08111200 
08111250 
08111300 
08111350 
08111400 
08111450 
06111500 
08111550 
08111600 
08111650 
08111700 
08111750 
08111800 
08111850 
08111900 
08111950 
08112000 
08112050 
06112100 
08112150 
08112200 
08112250 
08112300 
08112350 
08112400 
08112450 
08112500 
08112550 
08112600 
08112650 
06112700 
08112750 
08112800 
08112850 
08112900 
08112950 


144 
144 
1414 
143 
1414 
144 
1414 
141 
141 
144 
144 
144 
144 
144 
144 
144 
141 
141 
144 
144 
1414 
141 
141 
141 
1414 
141 
144 
144 
141 
1414 
144 
141 
144 
144 
141 
144 
144 
144 
141 
141 
141 
1414 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 


T $= p$ % SAVE DESTINATION ADDRESS, 
EnD OF NOCREATOR3 
3 
SURROUTINEG NOSAVFFACTOR: 
J Sere tamer a RHONA e OH ew 
BEGIN ; 
STREAMCA t2 SAVEFACTOR # T)3 
BEGIN 
NS 13 6 LIT “SAVE? "3 
St #* LOC A$ 
NS $% 3 NEC} 
A t= Dy} 
Ny t2 OI = 33 
NS 8* 2 FILLS 
ENN} 
T $= P3 % SAVE DESTINATION ANNRESS. 
END OF NOSAVEFACTORS 
z 
SUBROUTINE DOOPTYONS3 
x Baa Ran naan Semen ew 
BFGIN 
FOR 1 t= 0 STEP 1 UNTIL CNUMOPTS = 1) Do & SEF IF OPTION BIT SET, 
IF CTWOCT) AND YNFO) # O THEN 4OPTION SELECTED. 
RFGIN 
CASF I OF 
BFGIN 
NORECS3 % CASE O ™ "RECS" 
REGIN % CASE 1 ™ "LAST" 
X t® LASTACCESSDATES 
NODATEORI,ASTI 
END OF cASE 43 
BEGIN % CASE 2 = "DATE 
X t= @RFATIONDATES 
DODATFORLAST3 
END OF CASF 23 
NOSIZE3 % CASE 3 ™ "SIZE" 
NOSECURTTY3 % CASE 4 ™ "SECURITY 
NOCREATORS % case 5 * *CREATOR™ 
NOSAVFF ACTOR} % CASF 6 * "SAVE" 
ENN OF CASFS!} 
STREAMCT ¢ T)3 & PUT COMMA AFTER 1[,AST OPTION, 
BEGIN 
DS t= 2PLIT Ms M3 
Tt t= nis 
ENN: 
T $28 PY 
FNN OF LOOP TO PROCESS OPTIONS3 
END OF nNOOPTTONS3 
z 


P SUBROUTINE MAKFTHEMFSSAGE3 
BrGIN 
IF FOUNDAFTLE THEN & WE NFED A BUFFER, 
BUFF %2 SPACE(30)3 
PUTINFILENAME3 
DOOPTIONS; 
STREAMCT)3 ® PUT N THE LEFT ARROW 


08113000 
08113050 


08113100 
08113150 


06113200 
08113250 
08113300 
08113350 
08113400 
08113450 
08113500 
08113550 
08113600 
08113650 
08113700 
08113750 
08113800 
08113850 
08113900 
08113950 


08114000 
08114050 


08114100 
06114150 
08114200 
08114210 
08114250 
08114290 
08114300 
08114310 
08114320 
08114340 
08114350 
08114360 
086114370 
08114400 
08114450 
08114500 
086114550 
08114600 
08114650 
06114700 
08114750 
08114800 
086114850 


08114900 
06114950 


08115000 
08115050 
08115100 
08115150 
08115200 
08115250 
086115300 
08115350 
08115400 
08115450 


144 
141 


141 
144 


144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
141 
141 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
141 
144 
144 
144 
141 
144 
144 
1441 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 


RFGIN 08115500 

Nr t= NT 23 08115550 

NS t= LIT LEFTARROWS 08115600 

ENDS 08115650 

END OF MAKETHEMESSARES 08115700 

% 08115750 
SUBROUTINE COMPLAINS 08115800 
Pela te este See eee 08115850 
RFGIN 08115900 
STREAMCBUFF)3 08115950 

0S t= 8 LIT * Nb "; Z ORIGINAL INPUT IS AT BUFF + fa 08116000 
SPOUTCRUFF)3 08116050 

END OF COMPLAIN: 08116100 

% 08116150 
SUBROUTINE FORGETFVFRYTHINGS 08116200 
ee 08116250 
BFGIN 08116300 

IF HEANDERADDRESS # 0 THEN FORGETSPACE CHFADERANDRESS)3 08116350 

IF LASELREC # 0 THEN FORGE TSPACECLABELRFC)3 08116400 

EwD OF FORGETEVERYTHINGS 08116450 
BORE ST OA OR T Oo F C 0D Fo Ree kee RK ROK eH KOB 116500 
GFTRFANY? 08116550 
GFIFILESPECTFIFR3 08116600 
PROCESSOPTIONLIST3 08116650 
GETSET3 08116700 
WHILE WEGOTAFILE DO 08116750 

TF WEWANTTHISFILE THEN 08116800 

BEGIN 08116850 

MAKE THEMESSAGF3 08116900 
SPOUTCRUFF 93 08116950 
FOUNDAFILF 82 TRUES 08117000 

ENS 08117050 

Ir NOT FOUNNDAFILFE THEN COMPLAINS 08117100 
FORGETFVERYTHING? 08117150 

FND OF PRINTDTRECTORYS 08117200 
$t DATE 9/40/75 99990000 
$1 BY JTC = MSA CENTRAL 99990100 
$3 TH1S PATCH RFWRITES THE PRINTDIRECTORY PROCEDURE. MUCH NEEDLESS 99990200 
$1 COME HAS BEEN ELIMINATED CTHE PROCEDURE IS 30 WORDS SMALLER) AND 99990300 
$: SOMF NEW OPTIONS ARE AVATLABLE,. THE SYNTAX FOR Aj.L MESSAGES 99990400 
$! HANDI.ED BY THIS PROCEDURE (PD*EXeLFeLCe AND 1S) WAS BEEN CHANGED 99990500 
$1 SLIGHTLY IN THAT A S; ASH IS NOW REQUIRED BFTWEEN THE FIRST AND 99990600 
$t LAST NAMFS OF A FILE CA SPACE WOULD SUFFICE PREVrOUSLY) AND 99990700 
$1 MULTIPLE OPTION WORDS MaY BE SPECIFIED aFTFR ANY OF THF MESSAGES, 99990800 
$1 IN ANDITIONs FOUR NEW OPTION WORDS HAVE BEFN ADDrD. "SAVE" 99990900 
$3 LISTS OUT THe SAVE@*FACTOR OF THE FYLE* "CRFEATOR™ LISTS OUT THE 99991000 
$t PRIVILEGED USERCODE aSSOCIATED WITH THE FILes "SrCURITY™ 99991100 
$t LISTS OUT THE ACCESS RIGHTS oF THE FILEs I.E» LOCKED» UNLOCKED>s 99991200 
$t PURLIC»s PRIVATE» OR FREE» AND “ALL™ LISTS OUT ALi. OF THE INFOR® 99991300 
$2 MATION AVAILABLE FROM FACH OF THF INDIV1OUaL OPTYTONS, 99991400 
$1 99991500 
$t SOME EXAMPLES OF THE MESSAGES THAT ARE POSSIRLE FOLLOW, 99991600 
$3 99991700 
$3 Po a/B RECSoNATE oStZF 99991800 
$1 LF SYTE ALL 99991900 
$3 LCPBD RECS 99992000 
$t 99992100 
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144 
144 
141 
144 
144 
144 
141 
144 
141 
141 
144 
141 
144 
141 
144 
141 
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144 
144 
141 
141 
144 
144 
141 
144 
141 
141 
141 
141 
144 
141 
141 
144 
144 
141 
141 
144 
141 
141 
144 
144 
144 
141 
1944 
141 
144 
144 
141 
141 
141 
141 
144 
141 
144 


e © 


$i CONSULT THE HEADING BLOCK OF THE PRINTNIRFCTORY PROCEDURE 
$1 FoR ADNITIONAL INFORMATION, 


$#PATCH NUMAFR 142 FOR TSSMCP CONTAINS 1 CARD: 


REAL NEUS DEFINE UsiiT#,UASBUTH#sNFULENEUsu# »NEFUZENEUSNEUBS 
$$ DATE 10/4/75 
$! BY JTC = MSA CENTRAL 
$1 THIS PATCH CORRECTS «a PROBLEM IN SHAREDISK MCPS 
$1 WHICH COULD CAUSF INVALID LINK FRRORSe THE GL.OBAI. 
$t VARATBLE AVS WAS BEING USED INCORRECTLY IN THE 
$i PROCEDURE USERDISKSPFCIALCASE, 


$#PaTcH NUMAFR 143 FOR TSSMCP CONTAINS 5 CARDS, 


LABEL PEs TEsPArLLs: 
SWITCH S 2:8 LLeoPA,PEsTErIT»eUSsDeTDOPReINT» TMReADeWDE 
Ci: TF CY48=14) > €"™65 AND 14 S$ 6 THEN 
BFGIN GO TO Sr]44673 
LL? 14 t= LOGLINE.£40:8373 GO TO INITIATES 
S$! DATE 9/95/75 
$t BY JTC = MSA CENTRAL: 
$: THIS PATCH IMPLEMENTS TIMEC™6) WHICH RETURNS THE 
$: LOGICAL LINE NUMBER FROM WHICH a PARTICULAR PROGRAM 
$t IS RUNNING. BATCH PROGRAM WILL ALWAYS RETURN A ZFRO, 


S#PATCH NUMBER 144 FOR TSSMCP CONTAINS 7 CARDS, 


PROCEDURE FORMTIMECWeT): VALUE WeTs REAL WeT FORWARDS 
(S+24+(MCBUF INX Z23,01425)]#">")978138810]3 
FORMTIMFECENTL J @XCLOCK+PCRTR) 93 
STREAMCNIE=S*1 oCLEFSxB"VYesAAs®RUF TNX ZeBB t2 NT Ye 
BUF sSCRUFCRIJ)s 
REGIN OS t® 7 LIT ™ "3 St ¢2® LOC RRs DS t3 B CHR} 
nS te 9 Lit * *3 S71 22 AAB 
$1 DATE 10/20/75 
$! BY JTC = MSA CENTRAL" 
$% THtS PATCH ADNS THE TIME OF DAY TO EACH MESSAGE aS IT IS 
$t ENTERED INTO THE PACKET PAGE, 


S#PATCH NUMBER 145 FOR TSSMCP CONTAINS 7 CARDS 


LABFL IPCERR} 
TNITe SLOW C340C35#C 3600379 TW, T We C40 Cais IPCERR, 
TPCFRReTIPCERRe IPCERRs IPCFRRe TPCERR» TWeSLOWS 


99992200 
99992300 


00000000 


06381055 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


00000000 


18701010 
18701100 
18710100 
18710200 
18710230 
99990000 
99990100 
99990200 
99990300 
99990400 


0000000; 


00480010 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
99990000 
99990100 
99990200 
99990300 


19504100 
19508100 
19508200 


3 ovo 


3 


VJooo 00 O30 9 


uU070 


1414 
144 


142 


142 
142 
1492 
142 
142 
142 
142 


143 


143 
143 
143 
143 
143 
143 
143 
143 
143 
143 


144 


144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 


145 


145 
145 
145 


IPCFRR!E TERMINATE CPIMIX)3 
TERMINALMFSSAGF (9693 
"BINVALD">» "RB TPC CM, 
"D0Meeeels 
$1 RY JTC “= MSA CENTRAL» SOFTWARE FLASH 161 


BOR RIOR OIG RIGOR OIRO RIOR IOI IGG IG RRO IOI RR III HORII HORII Iie ge ak 


$#PATCH NUMAFR 146 FOR TSSMCP CONTAINS 41 CARDS, 


LABFL FOF, CLEANUPS 
DEFINE H = HEADER#S 


$ VoIOT 38477001 


BF 


GIN % COMPILE TO LIBRARY 

FOR Ti = 45 STFP 1 UNTIL 22 nO & COPY PROCe J/0» 
SFGOCTL) t= SKELIFTL13 ® STACK, COMMON® PRIO,s ETC, 

1F ¢T?2 t= SKELC13)) # O THEN & LAB. EQN, ENTRIFS 
BEGIN 


19575000 
19575100 
41445500 
41445600 


00000000 


38363000 
38385700 


38446500 
38447000 


38447500 
38448000 
38448500 
38449000 


SKFi.€13] 1% 03 % SO TERMINATE WoNT SEE ESPDISK STUFF 38449500 


DISKWAITCSKFEL,£CFJ»305T3)3 ¥ REWRITE SKFL. SHEET 
SFGOf15) t= HL7] + 13 & ANDRESS OF IST FNTRY 
no 
BrGIN % COPYING LABEL EQN, INFO INTO CODE FILE 
IF DISKADDRESSCMIDsF ID» FPBLFNUM4+3] 5 
CTLsSHE71):2H0734+159He! 0) © O THEN % NO ROOM 
REGIN 
DO 
BEGIN 
DISKWATTC™SKEL.rCrle3neT2)3 & GFT SEG. 
FORGFTFESPDISK(T2)3 
END . 
UNTIL ¢T2 t= SKELF29]) = O38 
FILEMESSC# "DISK ","OVRFLOW"eMIDSF ID? 
RsOet 3 
END 
FLSE 
REGIN 
DISKWATTC™SKEL,CCFI,30°T2)3 % GET SEGe 
FORGETFEFSPDISKC(T2)3 
IF ¢T2 t= SKEL&F291) # 0 THEN & MORE OF EM 


SKELF29] t* Ti + 43 % ADOR, IN CODE FILE 
DISKWAITCSKEL SPCR] e300e12:2¢H(T1 DIV HEB) 
+90) + Ti MON Hr83))3 


FND 
Fad 
UNTIL T?2 = O3 
END OF PROCESSING LABEL FQUATION INFO} 
SEGO(6) t= NABSCePCDUP))3 % NEW FORMAT SEGe ZFRO 
HC4],£ins1] t# 13 % MARK AS PROG, Frbe 
NIESKWAITCSEGO.(CEI],30-HL10])3 & REWRITE SEG. ZERO 


FNN OF COmPyLeE TO LYRRARY PROCESS1NG3 


$$ DATE 1/19/76 
$t BY JTC = MSA 


CENTRAL? 


$! THIS PATCH CORRECTS aN UNLIKFLY FRROR IN DtSKCLOSE WHICH 
$1 CAN CAUSF ESP DISK SrGMFNTS TO BFE LEFT 1N USF IF A COMPILER 


38450000 
38450500 
38451000 
38451500 
38452000 
38452500 
38453000 
38453500 
38453600 
38453700 
38454000 
38454100 
38454500 
38455000 
38455500 
38456000 
38456500 
38457000 
38457500 
38458000 
38458500 
38459000 
38459500 
38460000 
38460500 
38461000 
38461500 
38462000 
38462500 
38463000 
38463500 
38464000 
99990000 
99990100 
99990200 
99990300 


ga 0 OO 705 


9 


145 
145 
145 
145 
145 
145 


146 


146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 


$1 GETS DS*ED For DISK aVERFLOW. IN ADDITION»e THE PaTCH USES 99990400 
$1 THIS OPPORTUNITY To pEWRITE THE EXCEPTIONALLY BAn LOGIC 99990500 
$1 CONTAINEN IN THIS ROUTINE. 99990600 


S#PATCH NUMRER 447 FOR TSSMCP CONTAINS 2 CARDS 


UPTIMFOUTEOCMIX)?: 24035300 
DOWNTIMFOUTCMIX)3 24096800 
$: BY JTC = MSA CENTRAL, SOFTWARE FLASH 162 
PETITE TT CITT TTT LISTE LLL ETE 


S#PATCH NUMBER 148 FOR TSSMCP CONTAINS 1 CARD 


TREMP # Fog K reTeds heey 02> 
$t BY JTC = MSA CENTRAL, SOFTWARE FLASH 163 
$t SEF ALSO DREXFL U, PATCHES 60126620748 
BO ie ge ROR ROR ORR RIOR OR ROR OIRO ORR FOR Rik RRR ROR OR IOR OG ok 


$#PATCH NUMBER 149 FOR TSSMCP CONTAINS 7 CARD. 00000000 
DS ts 8 DECY DS 1* 2 LIT ™ oy 03733500 

D1 s= pr = 103 08 :* 7 FILLE 03734000 

St t2# FS NS t* 10 CHRI 03735000 

BFatN SrteLOc as’ nSt28 neces DSte2 LIT «M3 19559420 
Dis=DI=403 OSts8& FILIS AteDI3 19559140 

Drs=Ts Sls=as DSt210 CHR3 19559160 

TWXOUTCT #100081 fCTFIRIF2ra7tidsR6)$3 19559200 

$$ DATE 2/11/76 99990000 
$3: BY JTC = MSA CENTRAL 99990100 
$1 99990200 
$1 THTS PATCH CAUSES AN FXTRA BLANK TO BE TYPFD OUT AFTER THE SEQUENCE 99990300 
$1 NUMRFR 1S SFQUFNCF Mone. THIS TS CONVENTENT FOR LINING 99990400 
$t ;NPUT WITH PREVIOUSLY PRINTEN OUTPUT SINCE THE LrST AND PRINT 99990500 
$t COMMANDS OF CANNF PRINT AN EXTRA SPACE AFTER THE SFQUENCE NUMBER, 99990600 


$B CROOK ROR ORRICK Ero giao RR tk gf OK aR RGR kk ORR WOK ROR OK i iG dOk bok doko ak tok ek 99999999 


$#PATCH NUMBER 150 FOR TSSMCP CONTAINS 12 CARDS, 00000000 
STREAMCLCFLG:®LONGCARRIAGECS1 Je Vy =CVSEGETAREACO) 419303826100 

BEGIN 03826200 

nS 1% 6 LIT "DEL <<#"3 03826300 

LCFLG (DS te 3 LIT "<"y3 03826400 

nS ts LIT LEFTARROWS 03826500 

ENnS 03826600 
STREAM(LCFELGESLONGCARRIAGELS4 JeVieVel 93 03980000 


© Bw Te Be ee Re Be Re Rw hw iw ae Be we Be) i] v9 ON 79 o9oUNo 99 


o 


146 
146 


149 
149 
149 
149 


150 


150 
150 
150 
150 
150 
150 
150 


ee ee ee ee ee ee er ee a a a 2 a a ie er | 


BEGIN 
OS 13 3 LITT *<<c#e; 
LCFLG COS 1= 3 LIT "<3 
NS + LIT LEFTARROWS 
FND3 
$1 DATE 2/11/76 
a RY JTC ™ MSA CENTRAL 
ty 
$$ THrS PATCH ANNS AN EXTRA NFLAY FOR TERMINALS WITu LONG CARRIAGES 
$s AFTER THE CARRIAGE RETURN TYPED OUT WHEN THE USER TYPES A 
$t LEFTARROW, THIS PREVENTS THE REGINNING OF SFQUENCE NUMBERS 
$t FROM BEING LOST IN SFQUENCE MODE. 


S#PATCH NUMBER 1451 FOR TSSMCP CONTAINS 38 CARDS; 


*ITSALLBATCH * ToGLF.Ci6:il# 
ENN 
FLSF % 1TS REFLOW THE FENCE 
1F YTSALLBATCH THEN &% WE WitkL WAIT AWHILE 
BEGIN 
TANKSELLI #® NABSCT)3 
CLICK t= CLOCK + PCRTR) + 1283 & 2 SEC, 
SLEEPC020)3 % WAIT FOR TIME OUT, 
GO TO STARTS % TRY AGAIN, 
FND$ 
IF PCOeRDS) < FENCE THEN % BELOW THE FENCE 
RFGIN CLICK :@ CLOCK + PCRTR) + 1023 + 10233 % 34 Sree, 
COMPLEXSLFFPCINPUTANKETI,INPUTN OR TrRMSETCPIMYX) D3 
ENN ELSF 
IF cMEMEMEXeO}).°CF] 2 F 
IF T < @90000 OR T > @ 
SUBROUTINE CLEARALLTANKS$ 
BEGIN CLEARTANKCLOGLINE,O93 
TANKSCISSLOGLINE sl4n:8)])]22(eP COUP) A0[CTCI]3 
Ir WORKING THEN % MaKE SURE HARRY ISNT 
IF HARRYSTA = I THEN % DIMDLING OUR LYNE 
COMPLEXSLEFPCNOT WORKING OR HARRYSTA # J1)3 
CLEARINPUTANK3 
TANKOKeET] t= O03 
ENN OF CLFARALLTANKS! 7 
IF LOGLINE.F33377 # 0 AND PimrX # CANNYINX THEN 
CLEARALLTANKS3 
I 18 O03 % RE*INITIALIZE FOR CORF SEARCH 
CLEARALLTANKS3 


ENCE OR_ [TTSALLBATCH THEN 
100000 THEN 


SVOIDT 14367035 
BFLOW t= (8f2),(8819125) OR ITSALLBATCH3 
IF FENCE e032:36] # FENCE OR FENCE < 8192 THEN FeNCE t= 16384) 
IF J < 7 THEN % NEFn TO FIND HIGHEST ON LYNG MOn ReLOW FENCE 
+CCHUNKMAY=0) % IN CASF ITS aLL BaTCH 


TPeCHUNKMAXS ¢CHUNKMAX=0 3 
IF CTIeMEati9), f32216)) # FENCE AND T # 0 THEN 
2 @50000 AND T < @100000 THEN FFNCE t= T3 
ITSALLBATCH t= FENCE 2 ®600003 
$1 DATE 2/11/76 


03900100 
03900200 
03900300 
03980400 
03900500 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 


00000000 


00081785 
03147000 
03147100 
03147200 
03147300 
03147400 
03147500 
03147600 
03147700 
03147800 
03299700 
03299730 
03299750 
03299780 
07500000 
09946000 
14351440 
14351445 
14351450 
14351455 
14351460 
14351465 
14351470 
14351475 
14351480 
14360510 
14360520 
14360530 
14367024 
14367022 
20163200 
44104000 


44109900 
44151050 


44163100 
44191020 
44191040 


44420000 
99990000 


oo CT 990 9779 39059 00 


So 


150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 


154 


151 
151 
151 
151 
151 
151 
151 
151 
151 
151 
1514 
151 
151 
154 
1514 
151 
151 
151 
1514 
151 
151 
151 
151 
151 
1514 
151 
1514 
151 
151 
151 
151 
151 
151 
151 
154 
151 
151 
151 
154 


$3 


BY JTC = MSA CENTRAL CPATCH RECEIVED FROM STEVE KELLEY = LSSG U.K,) 


THYS PATCH ALLOWS THe FENCE TO RE MOVED TO THE TOP OF MEMORY» 
SUPPRESSING ALL SWAPING,. ALL JORS ENTERFD aRe TREATED AS BATCH 
JOR = REGARDLESS OF RUN», FXECUTF OR COMPILE. 


CANDF PROGRAMS USING TERMINALS MAY RUN WITH THE FENCE AT 32Ks 
HOWEVERs THEY WILL NoaT BE SWAPPFD AND THE JOBS MrGHT BE SCHEDULED 
SINCF ALL JOBS ARE TREATED AS BATCH, 


IT 1S INTENDED THAT ONLY LIMITED TERMINAL USAGE nCCURS IF THE FENCE 
IS AT THE TOP OF MEMORY» SINCE REMOTE JOBS WILL TIE UP CORE WHEN 
WATTING FOR TERMINAL INPUT OR WHEN STOPPED OR WATTING FOR EXTERNAL 
CONDITION SATYSFIFN, , 


THIS PATCH Writ CAUSr THE TSS MCP TO SIMULATE THF 
BATCHe OR DCe MCP WHILE MAINTAINING THE TSS LOGGING 
FACILITIES. THIS PaTcH WILL NOT CAUSE REENTRANCY TO 
OCCUR, 


99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 


Booka ROOK ROR REO RROR RK RIOK KK RK  OK ik  K *KI99 999990 


S#PATCH NUMRER 152 FOR TSSMCP CONTAINS 5 CARDS. 


SPACESTACKSI7ZF = 85#3 
SPACESTACKSItZF = 105#! 


ARRAY SPACESTACKr*]3 
SVOTDT 


$3 
$t 
St 
$3 
$3 
$t 
$4 
$3 
$3 
$t 
$2 
$i 


1 8:2 SPACESTACKSIZES T t® PC.SPACESTACK)S FIX: & 
DATE 3/1/76 
BY JTC = MSA CENTRAL 


THrS PATCH INCREASES THE SPACE STACK SIZE FROM 80 TO 85 WORDS TO 
PREVENT A POSSIBLE STACK OVERFLOW IN THF SPACE STACKe THE OVERFLOW 
OCCURRED WHEN OLAY CaLLFD DISKSPACE AND DISKSPACE FORKED 
GETMORFOLAYNTSK FOR , PROGRAM RUNNING UNDER THE FENCEe OCCASIONALLY, 
WHEN FORK WENT TO GET A FIVE WORD AREA TO AUYLD THE INDEPENDENT 
RUNNER ENTRY tN THE FORKQUE THERE WERE NO FIVE WoRD AREAS AVAILABLE 
AND 1T WAS NECESSARY Yo BREAK UP ONE OF THE LARGFR AREAS, THIS 
INVOLVED CALLING FORGETAREA AND IT WAS THIS CALL ON FORGETAREA 

THAT OVFERFLOWFD THE STACK, 


00000000 


00013870 
00013890 
00043910 
23399000 
44173100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 


BB ROR IOI OR IOI IORI ROR IORI OIG RIOR RIGOR IOI OK ROR ROR gO IOI IORI kok toi tok tok 99999999 


S#PATCH NUMBER 153 FOR TSSMCP CONTAINS 43 CARDS, 


FIFELN MAYRFWORKENON = (784)3 
LABEL START) 
X ts ©1043 % THrS 1S THE CODE Wr WIt.L PASS TO 

% GFTSPACE THE FIRST TIME, IT REQUESTS 
% OVERLAY MEMORY FoR THE MCP AND THAT 
% WE WANT TO BE RETURNED TO ON A NO 

% MEM, 


00000000 


21015100 
21915200 
21015400 
219015500 
21015600 
21015700 
21915800 


vov 90 00979 900 9909007 7 70 G 


vo] 


gv VT 890 9F 9 S909 90 070707 0—"”70 


STARTS : 21915900 
IF NOT MPSJ,MAYBEWORKEDON THEN & WAIT TILL OTHER GUY IS 0021016000 
SLEEPCEMESI1,0 & TRUE [CMAYREWORKFDONI)3 21017000 

RFGIN ; 21018100 

7 2 ¥,C801033 % SIZE OF PROCEDURE IN WORDS 21018200 

MPSI"MAYBEWORKENON t= FALSF3 21018300 

% 21018400 
% NOW WE WILL ATTEMPT TO GET SPACF FOR THIS MCP PROC. 21018500 
% IF we FAIL WE WILL WAIT FoR A SECOND AND THEN TRY 21018600 
% AGATN, THIS ENSURES THaT 'F WE GET DS*ED WHILE 21018700 
% SLEEPING WATTING FOR MEMORY WE WILL NOT LEAVE THE 21018800 
% TOGeLF LOCKED UP FOR THIS PROCENUREs 21018900 
% 21019000 
IF CTISGETSPACE(CZ*#659X)42) = 2 THEN % NO MEM 21019100 

BFGIN 21019200 

MES],MAYBEWORKEDON t= TRUES 21019300 

xX, r46t1) $2 TRUFS &¥ DONT PUT OUT MESSAGE 21019400 

SLEEPCECLOCK)» NOT CLOCK)? % WAIT A SECOND 21019500 

Go To START} 21019600 

END} 21020000 

MES] 32 CaPCHUP)) 2 T CeTC] x TRIE CMAYBFWORKEDON)$ 21024000 

% 24304100 
% FreLnS OF SaVFr PARAMETER 24304110 
% 24304120 
FIELD 24304130 

% NEENDOLAY = 09:39 %&% THIS FIFLDO 1S NON ZERO IF 24304140 
% RrQUESTOR WANTS OLAY SPACF24304150 

TYPFNOMPMANDRETURN « 45104 § +F SAVFF.£45109) = 3 THEN24304170 

» JUSTRETURN = 463014 % GETSPACE WILI, TYPE OK MEM24304180 

»GETFROMFRONT = 47:01 & YF SUCESSFULL, 24304190 

; : : 24304200 
STREAMCXS@C(MESS#0 OR SAVEF.£45321=3)» MIX» SIZEs 24305700 
MESSt@MESSIEGETARFACO)D)3 24305750 

IF SAVEFJUSTRE TURN THEN PCOsRTNDS 24315000 

IF SAVFF.,TYPENOMFMANDRE TURN THEN PCOeRTN)? 24317000 

IF MESS#0 OR SAVEF.C4512] = 3 THEN TELLSPO3 24401000 

$t DATE 3/1/76 99990000 
$: BY JTC = MSA CENTRAL 99990100 
$t . 99990200 
$t THrS PATCH WILL PREVENT A PROGRAM FROM BEING DS*FD WHILE 99990300 
$1 TRYING To BRING IN An MCP PROCEDURE. THIS USUALLY LEFT THE TOGGLE 99990400 
$: FOR THE PROCFNURE LOeKFN UP SO THAT THE PROCFDURE WAS PERMANENTLY 99990500 
$$ PReVENTEN FROM RFING RROUGHT INTO CORE« THIS CONNITION OCCURRED 99990600 
$1 WHEN THE PROGRAM WAS SLEEPING WAITING FOR A NO MFM CONDITION TO 99990700 
$t CLEAR UP SO THAT THE PROCEDURE COULD BE BROUGHT +N AT THE SAME TIME 99990800 
$t THAT. THE OPERATOR DS*ED THE PROGRAM. IF THF NO MEM CONDITION DID 99990900 
$t NOT cLFAR UP IN ABOUT 8 SFCONDS» NSFCONN WOULD FORCE 99991000 
$t THe STACK TO RE DS=Fn, NOWs FSPRIT WILL HANDLE Twe NO MEM 99991100 
$s CONDITION HIMSELF IN SUCH A WAY THAT NO TOGG!ES WILL BE LOCKED 99991200 
$1 SHQHULD THE OPERATOR nS THE PROGRAM WHILE IT 1S TRYING TO BRING IN 99991300 
$1 THe PROCFNURF. 99991400 
$t 99991500 
$i 1F A =NO MEM= MESSAGE 1S DISPLAYED BY ESPBrT UNDFR THE 99991600 
$$ ABOVE CONDITIONSe THERE WILL NOT BE A CoRRFSPONDING 99991700 
$2 "OK MEM™ MESSAGE, 99991800 


SOR OIG RII RIOR RIO ICIS IOI IOI g IOI Ge iit to 499999999 


IJoo8v 9svVIV Ve9 sv Ve VVs9I V0 9 979 VI Vv VV VV VV V vo 93d V907V e999 C079 009 99 0929707 D0 T9359 


153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 


$#PaATCH NUMRFR 154 FOR TSSMCP CONTAINS 30 caRnS, 


vVOInYT 48038401 


BR ve Be BL aR BE DE DA BL DV DR HP aC Be dQ 


$1 DATE 3/12/76 


IF We REACH THIS POINT THEN THIS JoB HAS USED 
UP ITS TIME SLIcF CEITHER PROCESSOR OR 17/0) OR 


THTS JOR HAS BEFN DOING EXCESSIVE OVERLAY AND 
DESERVES ANOTHER CHUNK nF MEMORY” IF THE 

PROGRAM HAS USEN UP ITS TIME SLIcEe WE WILL 

SWAP tT OUT TF THERE IS SOMF OTHER PROGRAM THAT 
1S ReADY TO RUN AND CAN USF THIS GUYS CHUNKS, [IF 
THE PROGRAM HAS BFEN DOING EXCESSIVE OVERLAY AND 
THE PROGRAM HAS ROOM FOR EXPANSInN AND DIONT USE 
A MAX CORF CaRD»s WE WILL SWAP IT OUT 

AND swWaPPING?1O wtlL ARRaNGr 10 OaTaIN ANOTHER 
CHUNK. 


IF PeOeRDS) > FENCE THEN &¥ SWAP JOB 
BEGIN 


FOR NT2 t= SCEPIMIX] STFP 1 UNTIL LOFPIMIX] DO 
IF ACTIVEENT2] > 1 THEN % SOMEONE CAN USE THIS 


REGIN % erHUNK, 
SWAPCTIMEND?1)3 & 
GO TO RETURNS 

FNDS 


Ir OLAYCTREPIMIX] < 0 THEN % FXCESSIVE OVERLAY, 
0 THEN & FXPANDABLF 


TF NONTEXPANDBITSCPIMeX] 
REGIN 
SWAPCTYIMENDs4)3 % 
GO TO RETURN: 
FND} 
ENn3 


$1 BY JTC = MSA CENTRAL 


$! THIS PATCH PREVENTS A JOB FROM RFING SWaPPFD OUT TO OBTAIN A NEW 
St CHUNK WHEN THF JOB CANNOT BF EXPANDED, 
BIRR OIE IO IOIOIO IO GIIGIOISIIOR RIOR OI OI III IO HOR Oi 99999999 


S#PATCH NUMRER 155 FOR TSSMCP CONTAINS 261 CARDS, 


RFGIN STREAMCALBTYPFNSPACE( LO*sSPOUTMSGAREAV) 5 99% 


DEFINE 


TYPENSPACFCTYPENSPACE1 »TYPFDSPACF2) = 
(CGETSPACECTYPEDSPACF is TYPFDSPACE2+0)429#% & 
*ARRAYDESCCARRAYDESC1 ss ARRAYDESC2) = 
COMEGETSPACFCARRAYDESC1 #ARRAYDESC2+0)42)) & ARRAYDESC1 CSIZEJ)# %00017025 
»SAVEARRAYDESCESAVFARRAYPESCIsSAVEARRAYDFESC2) # 
COME GETSPACECSAVEARRAYDESC1 + SAVEARRAYDESC 2019423) 
& SAVEARRAYDESCs rSIZE))# %00017040 


3 


00000000 


48038120 
48038130 
48038140 
48038149 
48038150 
48038160 
48038170 
48038180 
48038190 
48038200 
48038210 
48038220 
48038230 
48038240 
48038250 
48038260 
48038270 
48038280 
48038290 
480386300 
48038310 
48038320 
48038330 
48038340 
48038350 
46038360 
48038370 
48038380 
48038390 
48038400 
99990000 
99990100 
99990200 
99990300 
99990400 


00000000 


00005230 
00017005 
00017010 
00047015 
00017020 


00017030 
00017035 


00017045 


BEAALARFBLAAASTTARFAALAL TAK ASALALRLRBALLRAXLTLVLSELASLLLLLEALALELALEAZXLOOOLTLOO 
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FIO III OI IOI IOI II IOI I IOI IO GR Gio ior 300017110 


¥* *%¥00017120 
%* MEMORY AREA TYPES STORED IN 316 FIELD OF FIRST MEMORY *%00017130 
he LIMK OF ALL MEMORY ARFAS *%00017140 
ue *#%0001715060 


Tose IGIOIO IS IOIO OIG IOI SIO GIG IOIG IOI GI ii ino io iets 800017160 
LLVEAALKELALAL ALY LEY AAA GALL YL GALA KEY L RAL SELL LEAKY EELAL SLEEK A EAL AHA ALSEEZYXON0I 7470 


DEFINE : ; 000171480 
UNKNOWNARE AV = O# % 00017190 
»CODFARFAV = 1% x 000147200 
sDATAAREFAV = of Z 000172710 
»lOBUFFERAREAV = 34 % 00017220 
sALGOLFIRARFAV sd ae 2% 00017230 
eTNQUIRYBUFFARFAV = 5# & 00017240 
»CORBOLFIBARFAV = 6# & 00017250 
»TYPE7ZINTAREAV = 7H % 00017260 
eDISKHFADERARFAV =& Aa ® 00017270 
eMAINTRUFFARFAV = 998 & 00017280 
»LBLEQNAREAV =z 10# & 00017290 
o SFGZFROARFAV s 11# % 00017300 
eSTACKAREAV = 124 & 00017310 
eTYPEN3TNTAREAV = 13# & 00017320 
eSCRATCHDIRAREAV «= 14% & 00017330 
» OPSETAREAV ge 15# % 00017340 
»DIRTOPAREAV = 16# % 00017350 
e SPOUTMSGAREAV = 17# % 00017360 
»UVROWARFAV = 18H % 00017370 
» JARROWAREAV = 19# % 00017380 
»CIDROWAREAV = ont & 00017390 
» INQINPUTARFAV = 21# % 00017400 
s TNTARRAYARFAY 2 208 & 00017410 
»RJFTNPUTARFAV 3 23% % 00017420 
sOCQUFUEARFAV =z Pat & 00017430 
»DALOCROWAREAV 2 25# % 00017440 
» SHEETAREAV = 26# & 00017450 
»STAWORDARFAV = 2?7# 3 nC MCP ONLY 00017460 
eKEYINBUFFAREAV = 28# & 00017470 
sFSAREAV = 29# % 00017480 
eDCLOQUEUEAREAV = 30# % NC MCP ONLY 00017490 
PAVTARLEARFAV = 3i# % 00017500 
eTRACFTABLFARFAV «= 32# % nc MCP ONLY 00017510 
sSFGDICTARFAV = 334% & 00017520 
» STACKPRTARFAV = 34# & 00017530 
»MCPTARLEARFAV = 35# & 00017540 
s IRSTACKARFAV = 36% &% 00017550 
»FPBAREAV = 37# & 00017560 
eCONTROLCARDAREAV = 38# &% 000175692 
»LABELAREAV = 398 % 00017564 
»MNUMPAREAV = ANF & 00017566 
eESPDISKARFAV = 41# % 00017568 
sLOGARFAV a AD#t % 00017570 
eCANDFINPUTARFAV = 43# ® TSS MCP ONLy 00017572 
»ORJOBINPUTARFAV = 44# ¥ TSS MCP ONLY 00017574 
eTYPE4S = 45% % 00017576 
TYPE Q6 = 46# % 00017578 
TYPES? = 47# % 90017580 
»TYPF48 = 4A# ¥ 90017589 
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; + g 


3 00017600 
BEAARFRATAKLALAPARLAALSLAAAHASVATLALELLSLELELYFXEBAFAALLALLLLALXLELEBLAULAXOOOI77TOO 
ai IORI IOI OI III IO OI IOI io doit 500017710 


X* *%00017720 
x m MEMORY L INnNes *%¥00017730 
%x *%00017740 


TOI OIC ISO IOI ISO IOI RIOR I IOI HOI ikki ito 300017750 
LKEAVALE AULA SAA LHALLALH YL ALK LALLA LAY ALAA SLYKE ALY KATHE LETAKEAALYEALASELAXXOOOL 7760 


% 00017769 
% FIELDS OF MEMORY LINK 0 OF ALL AREAS 00017764 
% 00017766 
FIFLD 7 00017770 
ARFAAVATLF = 04:07 % = 0 FOR IN@USE AREAre = 1 FOR AVATL«. AREA 00017780 

» AREASAVEF = 02:01 % = ¢ For IN*"USE SAVE ARFAe = 0 FOR OLAY AREA00017790 
PARFATYPEF = 03:06 3 TYPF OF AREA CSEF ABOVF) 00017800 
eaReaMTXr = 09:06 ® MIX TNNFX OF OWNER OF AREA 00017810 
sARFABACKLINKF «= 18:15 % ADNRESS OF PReVroOUS ARFA 00017820 
eAREAPWDIINKF = 33:15 % ADDRESS OF NEXT AREA 00017830 

; 00017840 

$ VOINT 00068001 00059000 


AXVAESLRERLEAATALAALAALAYAAXALSLLASLALLE LEARY ALY ALE SEL EURAKAALALSAKRELAXAXZOOV6O000D 
TOI IIIS IS RIO IOI OOIGIOIIGOI IOI RIG OR IOI IOI ik koi kek mF 00060010 


%* *%00060020 
%* Mr1SCEULANEOUS FIELO DEF INI TYONS *%00060030 
%x *%¥00060040 


FOR OOO IGIIOI IO I RIO OR IOI IO I RIOR RR IO kok oki it 200060050 
EELLEY EY LELYEALY ELA AAS HALAL LA AAYSSLAK FAL EAL HLA KASLEAL SE LEAL RAALHAALSEXXXXOONKOOKOH 


0006007n 

FIELD 00060080 
FF = 16115 % 00060090 

CE = 33915 ¢ 00060100 
CTF = FF % 00060110 
CTC = CF % 0006012 
oMCFr = 16101 3% 00060130 

3 00060999 

% 0004;000 
% FIELDS OF alT ENTRY 00061010 
% 00061020 
FIELO 00061030 
FILEBIT = 01801 % 00061040 
eOWNBIT x 093041 & 00061045 
sDIMENSTONS = 03805 & 00061050 
»*BLKCNTR = 08810 *% 00061060 
»MOM ® 16:15 % 00061070 

$ 00061999 

4 ; 00062000 
x FIELDS OF DATA DESCRIPTOR 00062010 
% 00062020 
FIED 00062030 

% FI.AGBITF = 00100 % 00062040 
% DATABIJTF =e 01101 % ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 
PRIT = 029041 % ON IF DESCRIPTOR POTNTS Ta AREA OF CORE 00062060 
°SiZer = 06:10 % SIZE OF ARRAY ROW IF ARRAY DESC, 00062070 

% 0 FOR INNDFXED DATA NESCe OR NAMF KF SC, 00062080 

% sMOMANDRESSF = 18315 ¥ ANNRESS OF MOTHER DerScRIPTOR, 00062090 
%¥ »sANORESSEF = 33915 % 1F PBrT 1S ON THEN THYS FrELD CONTAINS AN 00062100 
% ACTUAL CORFE ADDRESS, IF THE PBIT 1S OFF THEN 00062110 
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¥ IF THE VALUE OF THIS FIELn IS GREATER THAN 00062120 

% OR EQUAL TO 512 THFN THE FIELD CONTAINS A 00062130 

% NALOC ADDRESS WHrCH CAN Br USED TO LOCATE THF 00062440 

% DATA IN THE OVERLAY DrSK AREA ASSIGNED To THE 00062150 

% THE PROGRAM. IF THE VALUE OF THE FIELO IS LESS00062160 

% THAN 512 THEN THIS FIFLD eONTAINS A CODE 00062170 

% YNDICATING THE STATUS OF THE AREA, 00062180 

% 0 NEVER ACCFSSEN OVERLAY AREA, 00062190 

% i NEVER ACCFESSEn SAVE AREA. 00062200 

% 2 NEVER ACCESSEnN OVERLAY AREA WHICH 00062210 

% WHICH IS ASSIGNED To AUXMEM, 00062220 

% 5 INDICATES OVERLAY IS CURRENTLY IN 00062230 

z PROCESS FOR THIS AREA 00062240 

% 6 INDICATES OLAY HAD TRRECOVERABLE 00062250 

% ERROR WHEN OVERLAYING THIS AREA,00062260 

% THE NEXT ACCESS To THE AREA WILL00062270 

% CAUSE THE PROGRAM To BE TERMI*® 00062280 

% NATFD: 00062290 

J 00062999 
% 00047000 
% MISCELLANEOUS NEFINES 00067010 
% 00067020 
DEFINE 00067030 
CURRLKCNTR = 16 # % 00067040 
eAYTNDX = 6# 00067050 
oF TF = 18318:15 # &% 00067060 
oF TC = 33918115 # % 00067070 
sDFLTA ® 11 #4 % 00067080 
j 00067999 
T $= GFETSPACFCS@1s SPOUTMSGAREAVs64e 0) + 1 02134300 
MPMESSAGE@11),FAREATYPEF) 3 SPOUTMSGAREAVS 02134710 
At=TYPEDSPACE(C15»SPOUTMSGAREAV)3 02205475 

S t= IF MPT),AREATYPEF = CODEAREAV THEN 02216000 

MPT+4],€CF) FLSE 03% 09216010 

FLSE PCMET@2],AREATYPEF,DUp) # TYPE7INTAREAV AND 02216600 

_ POXcHy # TYPEL3INTAREAV) OR L * O3 02216610 
TPeerMETAtETYPENSPACE (C51 IsMNUMPARE AV) I) 02434430 

& SISCSTZE] & 56 218452318% 02434435 

LBL t= TYPEDSPACE¢10sLABELARFAV)3% 02639000 
INPUTANKESTA] FFFIS=Rte(IF T1 GTR O THEN Ty ELSE 03618800 
TYPEDSPACE( 3220BJORINPUTAREAV) D423 03618810 

LASTSFGLO], CFF) 15 (St*®=TYPFDSPACE 03638500 
C32scANnNFEINPUTARFAV) D423 03638600 

$ vornT 05804200 
PePyMIX)3S PiMyXteOs 05811460 
LI=sGETSPACE CA» SCRATCHDIRAREAV®SCRATCHSAVE)?: 05811470 
INBUFF t@ GETSPACE(11 +I OBUFFERAREAV!13423% 07086000 

FIRSTCARD t# GETSPACF(LO*CONTROLCARDAREAV?1)423% 07087000 

ELSE BEGIN OUTRUFFOLN t= OUTRUFF 3= 07095000 
GETSPACECO60* 1 OBUFFFRAREAVe1) 4232 07095400 

H tm SAVEARRAYDESC¢30,D1SKHFADERAREAV) 3% 07097000 


SHEAT te pMPF ie TYPEDSPACE(C31+SHFETAREAV464))) & 307S1ZE13%07256400 


SEGO t= TYPEDSPACE (30 sSEGZERQARFAV+64 53% 07257400 
H ¢® CIORMWER] t= (MPSte 07433000 

GETSPACEC94s CINROWAREAV+46404)4+2)) & 94 SIZE3 07433100 
TreGETSPACE (1 3eCONTROLCARDAREAV46400)443 07446000 


SHEAT «+ FMEF te TYPEDSPACE( 31 eSHEETAREAV464))I&830£S1ZE1108274250 
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155 
155 
155 
155 
155 
155 
155 
155 


SFGO 3® TYPEDSPACE(30sSEGZEROAREAV4+64) 3% 
CHETYPENDSPACE CS »MAINTRUFFAREAV)3% 
REGIN RIE®TYPENSPACE (CSeMAINTRUFFAREAV) 3% 
St=rMreTYPENSPACEC3LeSHFFTAREAVII] & 30LSI7EI3¢ 
DLNKt=rMeTYPFDSPACE C31 eSHFETAREAVI]) & 30fSIZF 13% 
INTRNSC t= IMPINTLOCI=GETSPACECMAXINT#T 4 7S1ZFs INTARRAYARFAV24)942]18 
Br=(GETSPACE(94*1QBUFFERAREAVS1 )+2) @ 9OCSIZE 3% 
LOGINFOS=SAVEARRAYDESCC20*LOGAREAV) 3% 
NTLSEGETSPACE (CS eMAINTBUFFAREAV+64005423 
TISTGETSPACE (C12 ,CONTROLCARDAREAV +64 20)443% 
SEG t= IF MER] AREATYPFF a CODEAREAV THEN mECR+1).0CF) ELSE O83 
ELSE PCMER*21],AREATYpPEF*sDUP) # TYPEZINTAREAV AND PCXCH) # 
TYPEL3INTAREAV) OR LOCN = Of 
BUFF t® TYPFOSPACECOOeKFYINAUEFFARFAV) + 13 
FHterMretsTYPENSPACECTEMPsDISKHEADERARFAV) 4) & TEMPFSTZE)3% 
FH t= CMCFLeTYpENSPACE( 30eDISKHEANERAREAV)1) & 30 SIZE3 
STRFAMCAPReT#® Ti FGF TSPACE (C10*#CONTROLCARDAREAV+6400)44)3 
TESGETSPACE CI +52 CONTROLCARDAREAV+6400)4+Q3% 
S ts CMPFTYPFNSPACE C31 eSHEETAREAVII1 & 3078238810]3% 
HNR #= GETSPACEC 30sMnISKHEADERAREFAVs4 1423 
FeB t= TYPEDSPACECSFGor5] INX ¢» FPBAREAV)3 
FRreGETSPACFE(CSEGO[71e°CFIxETRLNGPFPBARFAVel) +23 
LAL re aRRAYDFSe( 30*LALEONARE AV) 3% 
LBLYtsARRAYNr Sc 30eLRLEQNAREAV)I 3S 
SEGO!sARRAYDESC? 30, SEGZEROAREAV) 3 
SINFOCMIXI],£CF1 s@ CSTACKLOC ts 
GETSPACECSEGOL3] INX S£21) INX 64e STACKPRTAREAV» 19) + 23 
TRPCAItaCMECTSSGFTSPACECSEGOr1 Jef CF I>SEGNICTAREAVel 42])3 
: STREAMENS@NALOCROWE MIX) LESAVEARRAYDFSCCMALOCSI Ze ePALOCROWARFAV) 38 
VON 
STREAMCD tm UVSpPACE te TYPEDSPACECUVS]ZE»+UVROWAREAV) )} 
MEHNR*2] ¢® CePCDUPS) & JARROWAREAV ARFATYPFFS & 
STREAMCQSSFSROWECMIXISZSAVFARRAYNESCC4oFSAREAV) 33 
TRPC3I¢erMCGFTSPACE C1» FPBAREAVe1)42)) ELSE & 
BEGIN CARN.£33815) te TYPEDSPACF(13*CONTROLCARDAREAV) 423 
12sGETSPACE (30, JARROWAREAV&MIX(CCTE J 94423 
TEECETEPACE COUCTIE. UVROWAREIVEMLECC TE, 1)+93 
SHFAT teCMPF teTYPENSPACE(C 315 SHEETAREAV464) 1] & 30f8238310)3% 
SEGO t TYPEDSPACE(30*eSEGZEROAREAV+64)3% 
IF (MIX t= LINWeAREAMIXF) = 0 THEN Gon TO MCPS 
IF PCLINK,AREATYPFFeDUP) = CODEARFAV OR PCXCH) ® 
TYPFL3ZINTARFAV THEN GO TO cOor3 
IF LINK,AREATYPEF «© TYPEL3INTAREAV THEN & TYPE 13 INTRINSIC 
IF PCLINK.AREATYPEF 20UP) = TYPE7INTAREAV Op PCXCH) = 
TYPFLSINTAREAV THEN GO TO INTRINSIC3 
IF LINK,ARFATYPFE & DATAARFAV THEN % OvERLAYABLE MeP AWATA 
MPGETSPACE tall tec*P COUP) I&TYPELARFATYPEF J&MIXPAREAMIXF IS 
BEGIN TMPSaGETSPACECFPBPTR+ETRLNGe FPBAREAV 01) 493% 
Hr*(MCTYPEDSPACE(C42,DISKHEADERAREAV)]) & 30£813A110)33% 
TI®GETSPACE (30M ISKHEADFRAREAVG1)425% 
TMPIRGETSPACECI2sCONTROLCARDARFAV46455 443% 
LABSsARRAYDFSC ei SsLABFLAREAVIEY 
Fate TYPEDSPACE¢ TMP ta TEMpec TEMP DIV pIeoeDATAAREAVD 419% 
CCALSSAVEARRAYDESCC30nESPDISKAREAV)3% 
Fare TYPENSPACECCBUMPFAISFASZI=1F MAX > 128 THEN 128 ELSF MAX)4 
CFAS7 DIV 2)42sDATAAREAV) 443% 
StzaARRAYDESCE 30,ESPHISKAREAVI3 


08275500 
08385100 
08410000 
08881000 
08930000 
09506000 
12672500 
12848500 
14411820 
14533000 
16853000 
16854200 
16854300 
16954200 
18285200 
18286000 
18438120 
18520300 
20026600 
20028700 
20049000 
20049800 
20059100 
20089800 
20110400 
20116100 
20116200 
20124900 
20127300 
20127400 
20156800 
20169700 
20183610 
20187400 
20600950 
21304000 
21308000 
22069050 
27069100 
22297000 
22303000 
22303100 
22356100 
22386000 
22386050 
22386100 
24400000 
28050800 
28070000 
28288000 
28435000 
28451800 
284527600 
28455400 
28456800 
28457000 
28855000 
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155 
155 
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BEGIN MCLALPHA+l Jee CURLOCeGETSPACECBSIZE+4,T0BUFFERAREAVse1)+2)423 37406000 


MCT¢SSALPHA#21#=M OR CGETSPACECCTit=M(T1],SIZE) 44> 38107000 

LARFLAREAV®1)44) a2 TICSYZE] & CNTLAITSCFTF 1338107100 
BEGIN NT3 t= TYPEDSPACE(13+LABFLAREAV) 493% 38107300 
METI SSALPHA=2193M OR CGETSPACECCT¢tsME1T1)],SIZE) +40 38205000 


LABELAREAVell) +4) 2 TifS1ZE] & CNTLRITSCOFTFE 3338205100 
SFGOLSEME TYPE DSPACE (62 9SEGZFROAREAV) JJ a30£812Z6)3 38434000 


TF COBOL>0 OR FIBL4),0791] THEN 39304000 

MPFIB INX NOT 17,AREATYPEF t= COBOLFIRAREAV 39304500 

ELSE 39304600 
MrALPHA®71,AREATYPEF t= ALGOLFIRAREAV? 39305000 

KEY %= GETSPACEr¢Ss»MAINTRUFFAREAV4+64)0 9498 41312700 

KEY t= GETSPACE¢SsMAINTBUFFAREAV+6420) 493 41314000 

Ty 8™ TYPEDSPACEC 15 eMAINTBUFFAREAV) 3% 41323130 

MLA t= CMLAS®GFETSPACEC33*MAINTRUFFARFAVs094+3)1 2 32CS1ZF 13% 41328600 
TteCTIGETSPACE (J42e TNQUIRYBUFFARFAV2O)41)+3 AND NOT 33 44041000 
MrCtadtsTyPEDSPACE CI »MCPTABLFARFAV)4T1%a803 44153500 

SISEGETSPACE (Ze AVTABLEAREAV 04) 422 44240840 
SCRATCHVECISPMEGETSPACFC10*eSCRATCHDIRAREAV® SCRATCHSAVE 342) 44241180 

& 10 CToStZzeF)3 44241185 

BEGIN 48052000 

PCNTA s+ BLOBsNT1 »GETSPACFE CONTI e STACKAREAV? 3) 1348052100 

$$ BY JTC = MSA CENTRAL 99990000 
St DATE 03/37/76» UPDATE 11/05/76 99990100 
$t THtS PATCH CAUSFS THr TSSMCP TO TYPE MANY oF THE MEMORY AREAS 99990200 
$1 THaT WERE LEFT UNTYPFD REFORE. THIS PRIMARILY BENEFITS THE DUMP 99990300 
$1 ANALYZER, 99990400 


SO III IOI OI OIG IO IOI IOI OGIO III OI IR IIIS ROI ioiGk iin 9 9999999 


$#PATCH NUMRER 186 FOR TSSMCP MARK XVI CONTAINS 5 CaRDSe 


IF HEANFReEICF) GFO 64 THEN FORGETSPACECHEANER)3 12561600 

$VOTDT 12572000 
$VOTOT 12573000 
P() 12573500 

ELSE 12574000 


$1 RY JTC ™ MSA CENTRAL 
$$ SOFTWARF FLASH #164 aNn CORRECTION FLASH #190 
SDR I IO IOIGIOR ORR OROIOK RIOR OIRO IOI IOIGR RIOIGRORG IID ORR IOROR RGGI IO BIG ke ak ok 


S#PATCH NUMBER 158 FOR TSSMCP CONTAINS 18 CARNS, 00000000 
ARRAY WORKERSTACKE*)3 % DESC, TO OLDWIERDHAROIDS STACK, 00299500 
ARRAY ESPTABLa]3 REAL ESPCOUNT) 2% . 00399000 
GFTESPDISK 8@ CCPCOUP) CCF I@FSPTARe(CFIDx6 06031000 

S$ 1% CFSPTARICFI45. 130815]) x S€308333 % 06038000 

DFFINE WARRYSTA = WORKFRSTACKI5314%, & STA 14344100 

1 te WS T tm PC, ,ESPTAB)S FIX3 & 44173200 

1 ¢@ 4003 T te P¢,WORKERSTACK)3 FrX3 ¢ 44179100 

1:2 03). 44179200 

FOR T $® ¢ STEP 1 UNTIL NUMSTACK nO 44179250 


Boo s9Vv E797 00 9900 397790 90900909 90 "7090779790 "77S 


Oo 


IN 3J0 0 0209 


o 


900 C0990 900 —_" 
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158 
158 
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158 
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@eoeee#2eee8e8ee¢e¢8s 8 @© 0@6h6.c8tmhUcMmlCOOCOCU 


BEGIN 
Med) e= 12 & LINK TO PREVIOUS STACK IN Q, 
MECJ+17 #® WORDOFEASES % CLEAR STACK 
MOVECSTANDARDSTACK*2eJU+teJ+o)3 
I 3@ gst ¥ REMEMBER WHERE THIS STAcK IS 
< 1s J + STANDARNSTACKS & COMPUTE ADDRESS OF NEXT STAC 
ENDS 
STACKQ t= 19 % POFNT TO FIRST STACK IN Q, 
MOVE C99sTeeWORKERSTACK, CCF) et41)2 STO SPOT POSSIBLE OVER 
$§ DATE 3449/76 
$1 BY JTC = MSA CENTRAL 
St 
$t THIS PATCH CAUSES DESCRIPTORS To RE BUILT FOR THe WORKERSTACK AND 
$1 ESPTAB TO HELP THF NUMP ANALYZER ANALYZE THE MCP SAVE AREAS, 
BO ROI IORI RIOR IOI OR IOR ROOR OIRO SIGIIIIOR GIORGI OIOIOIOIOR gOIGRGIOIOI ORR IGE OIG ICI ie ak ak 


S#PATCH NUMBFR 159 FOR TSSMCP CONTAINS 25 cCARNS 


REAL PROCENURE 1NPUTSCANE MODE» SOURCE eDESTsNUM*e FLAGS e SEQMODF D3 
VALUE NUMsFLAGS,SFOMODE 3 
REAL MODE s SOURCE e DF STsNUMeFLAGSs SEQMODE? 
REAL PROCENURE INPUTSCAN ¢CMODE »sSOURCE eDESTeNUMSFLAGS »SEQMODE J} 
VALUE NUM» FLAGS @SrOMoDE? 
RFAL MODE s+ SOURCE enESTeNUMs FLAGS e+ SEQMODE?: 
ULFCnNEST,C3I0sSIANESTC3ne33t1 5] “CINPTSCel 3083) 2 INPTSC£301333815))3 


IF Usi AND SFQMODE %U"y WHEN ONLY ee" LEFT IN RUF e, AND IF SFOQMODE 
THEN a ZXTRUEs THEN USFR BACKSPACED TO FRONT OF BUFFER, 
BEGIN 
STREAM CAtEQOIDEST)3 
BEGIN DIt=DIwd3 ZMAKE INPUT |,00K L+KE A NULL LINE 
DSt=2L+T" «3% (SPACE) TO PREVENT CANDE FROM 
AtzD]} ZBELTEVING THIS IS ENn OF SEQ MODE 
ENDS 
PCLDESTIeSTN93 
G40 AUT: 
FND3 
INPUTSCANS3U3 


Nits rNPUTSCANCMODF sSOR¢ sASe(MEALI,CFFIMX 6 f298)) sFLAGSe0)5 
N¢teeNPUTSCANCMODr »SORC PARI» MrAt Jef FFIsFLAGS #073 
DFFYNE SEFQMODE & IF STATAB,STATYONTYPEMTWX THEN FALSE 
ELSE ¢LINEDISCESTAI®TWX AND SEQARRAYESTAI#0)#3 
NUMESNUM#INPUTSCANCMODE *SOURCE ede BUFSZ@T 1 oFLAGS ®SEQMODE D3 
NUMtsNUM4rNPUTSCANCMONE © SOURCE ede BUFSZsFLAGSsSFAMODE D3 
$1 BY DJUZ@"MSA CFNTRAL 7 
$t SOFTWARE FLASH #175 AND CORRECTION FLASH #485 
$1 SOFTWARE FLASH 200 CaRRECTION 
SFO IGIOIOIOIGI EIS IG GOO IOI IO ROR I OIG IOI ICI I OI IOI IH GHOE Hoi ged 


S#PATCH NUMRER 160 FOR TSSMCP CONTAINS 12 CaRNS, 


RFGIN 


44179300 
44179350 
44179600 
44179450 
44179500 
44179550 
44179600 
44179650 
44189600 
99990000 
99990100 
99990200 
99990300 
99990400 


99999999 


03071000 
03072000 
03073000 
03276800 
03277000 
03277200 
03290600 
03290700 
03290800 
03290810 
03290820 
03290830 
03290640 
03290850 
03290860 
03290870 
03290880 
03290890 
03290900 
03307000 
03313400 
03614600 
03614700 
03618200 
03634000 


06468000 


~ = he Bw Rive Be he Re Be Be Bee Boe Row Bw Bw] 


og 


VoeEGI S30 ec 09 090 9T 990 C_€0°"9 7 000°079””70 99 0000 TJ 


158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 
158 


158 


159 


159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 
159 


160 
160 


TF PcOeRDS) «TR FENCE 06470000 

sVOIDT 06471000 
FLSF COMPLEXSLFFPC (CR OR REPLYCPIMIX] GTR O OR TERMSETCPIMIX)))3 06472100 
SVOINT 06472501 ; 06472200 
1F JARPPQMrXe9),SYSJOBF NEQ LYBMAINCONE THEN GO INITIATES 06473100 
EXITs PCP&RCWECTCI>OoRNS eM eXCHoPaP(CTF I] eSTF)s 28101200 
sVOTDT 37180675 
IF CMEMCPIMIX»sMLINKIJ],0CF] GE® FENCE THEN 37226100 

$VOTDT 37226150 
S$VOTDT 37226500 
SVOIDT 37227500 


$1 BY JTC» KFK = MSA CENTRAL® SOFTWARE FLASH 1474 
BB seek ei OIRO RIOR ROR RO tN ii ig OK a ge i iii RII tok 


S#PATCH NUMBER 161 FOR TSSMCP CONTAINS 1 CARD 
ROMBt? Ip OUm18 THEN FORGETITS® 07231000 


$! BY DJZ = MSA CENTRAL, SOFTWARE FLASH 177 
BB ke he ae ke ee ORO OR Re aOR Ik RRR OIOIOIOIGK sb RRO ROR ORR i OIRO AOR i dca 


S#PATCH NUMAFR 162 FOR TSSMCP CONTAINS 3 CARDS. 


IF (NToteP),6984) THEN ZLEFT AT 12626500 12635500 
SVOIDT 12638000 
BEGIN IF (€10N:"7.79824) DIV 5)#0 THEN %SPACE FORWARD 12650500 


SIRY NJZ = MSA CENTRAL» SOFTWARE FLASH 180 
$$ obokok ok kK dk kiki i iG IORI OIRO GIORGOIOROR kak kok OIG gn IOI Ri kG ki iO Ck ok ake 


S#PATCH NUMBER 163 FOR TSSMCP CONTAINS 3 CARDS. 


$ SET OMIT = Packets 20034060 
FLSF FORGETSPACFCHDR) 20034070 
$ POP OMrT 20034080 


$t BY DZ = MSA CENTRAL, SOFTWARE FLASH 183 
$ Sok ko RRR RRR IO RRR OIOR Gg ROR RRR GROG IORI ROR RR k OR gk OK Gr ORR ROR dK kok ako 


S#PATCH NUMRER 164 FOR TSSMCP CONTAINS 16 caRnS, 00000000 
Real FRisFR2eFR33 LARFL FRSYSS 20511152 
ERL Ia" )6 "3% 20511175 
OR SYSTFMFILE Ce MMPOJ]eCMMC1]) THENY 20511188 
BEGIN FRSYS! ERLte*SYSTEM “SERQ2US"FILE9* “: GO ERROR ENDS 20511190 
BEGIN FRiste"SAME FIVSERQtaMLE Je "$ GO ERROR END 20511303 
IF TYPESUSEV AND MPOPTN+¥21<0 THENS 20511319 
BEGIN ERLte"SECURIT"SE RAI E"Y FILE "SF R3IF%% "s GO ERR ENDS20511313 


BaiosdrVvT0 77 T0077 0 —79 


o09o 


p=) 


» Bw Bis Rw aw ] 


So 


ae Eee Be Bow | 


] 


gu 9079 9599 


160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 
160 


161 


161 
164 
161 


162 


162 
162 
162 
162 
162 


163 


163 
163 
163 
163 
163 


164 


164 
164 
164 
164 
164 
164 
164 


RFGIN FRISe"INVALID@ZER2te" USER) o"3% 
FRR} FORGETSPACECOPTN)3% 
END ELSF IF OPTN=? THEN GO ERSYS® @ |,INE 295191190 
ELSE IF OPTN®&1 THEN REGIN ER1te"In USE"SERZIs%e 


20511335 
20511340 
20511363 


" ENN 20511364 


ELS@ IF OPTN®0 THEN REGIN ER1L&2#"NOT ON “SER282"HIrSkK)« © FENN? 20511365 


FRRORS ' : : : P 
STRFAMCAbErCMMPOVISFRIEa(FER1),B8sCOPTNt=SPAcE(10)))3 
OSte25 LrT » SECURITY MAINT IGNORED ¢ 3 SIteFR3¢ 
3¢S1s2S1413 DS127 CHR)S% 


$1 RY DJZ * MSA CENTRAL CSUBMITTED BY Ss KELLEY = NaTaL UNIVERSITY) 


$1 DATE 05/12/76 


$! THtS PATeH MaKES THE "SFCURITY MAINT IGNORFD™ MESSAGE MORE 

$t EXPLICIT BY ADDING ONE OF THF FOLLOWING REASONS YO THE MESSAGE! 
$3 1) SYSTEM FILE 

$t 2) SECURITY FILE 

$1 3) tNvalyn USFR 

$I 4) tN USe 

$t 5) NOT ON O1SK 


$t AND 4) SAME FILE. 


20511366 
20511370 
20511400 
20511405 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 


99990800 
99990900 


BOO IO IO IGOR IOI IOI IO IGG IO IIR IOI iO iii 96899999999 


S#PATCH NUMBER +65 FOR TSSMCP CONTAINS ¢ CARD, 


AND CCMFID EQV "RBADISK ™) NEQ NOT 09 


$1 RY OJZ = MSA CENTRAL CSURMITTED BY Se KELLEY @ NaTAL UNIVFRSITY) 


$8 NATE 05/13/76 - 
$2 THrS PATCH WrLL PREVENT "BADrSK® FILES FROM BEINaA DUMPED TO A 
$8 LIBRARY TAPE, PREVIOUSLY» IF THESE FILES WERE RE@LOADEDs THEY 
$t WERE ALLOCATED AS NORMAL FILES» WITH A VERY SMALi. CHANCE OF 
$1 BEING PLACED IN THE PROPER SPACEs FOR DUMPING PURPOSES ONLY. 
$e abl “"“RBanrsk"™ erlrS WrLL NOW RF TREATED aS SYSTEM FILES, 


$t NOTE THAT StTeES SHOULD NOT ALLOW USFR FILFS TO Be CREATEN WITH 


$1 "BADISK™ <MFID>S» AS THESE A).So WILL NOT BE DUMPFD, 


00000000 


28415250 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 


BRIG OIG OR RIO IOI IOI IO IIOII IG IOI IOI Rio ii toto 99999999 


$#PATCH NUMBER 466 FOR TSSMCP CONTAINS 18 CARDS, 


& 01384) FILE To RF ADNFD CNOT ON niSk) 
MUSTADN = NALF13t1)#» 
SE Ri RR Ri i ai gk si ae aa ke a gt a ek 
% CHECK IF FILE 1S To BE ADDED 
Te III IO OI IO ORO OIG IR I IOI IOI OR Gg fete 
% 
Te ADDV THEN 
1F NOT MUSTADN THEN 
IF OU #& 18 THENY TAPE TO DISK 
IF DIRECTORYSFARCHC@MF IDs FIDeS) NEG OX ALREADY ON DISK 
THEN BEGIN 


LBMESSCABSCMFID) oF ID) W679" 6Be TINULIUT»SPOUTUNITeLIBMSG)3 


1F DSED_THEN ABoRTS 
GO NEXT? 


00000000 


28200061 
282086300 
28270806 
26270807 
28270608 
28270809 
28270810 
28270812 
28270814 
286270816 
28270818 
28270820 
28270822 
28270826 


no we le he Bee Bie Re Rw be Bie Ew Ive Re Ee Re Re Bre Rw Ew Tee } 


o 


i=] 3 ug 99 90 090 09 


164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 


164 


165 


165 
165 
165 
165 
165 
165 
165 
165 
165 
165 
165 


166 


166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 


$1 
$3 
$1 
$t 
$3 
$1 
$1 
$1 


! 


FNN 
FLSE BEGIN MrFAINFO+J).F1381)%=243 MUSTADNt#1 END? 
F MUSTADD THEN Tt®0 ELSFX ADD FILE NOT ON DISK 


WON DISK eMe %, % 68 
RY DJZ = MSA CENTRAL (SUBMITTED BY S, KELLEY = NaTAL UNIVERSITY) 
DAT 05/13/76 

H1¥5 PATCH WiLL PREVENT THE MCP FROM SCANNING DOWN A LIBRARY 
DUmP TAPE TO FIND A FILE WHEN THE FILE BEING ADDFD IS ALREADY 


ON DISK, 


A NFW MESSAaF 18 ALSO INTRODUCED, THIS WILL BE SENT 


TO THE PACKET PAGE ANN ALSO TO THF SPO TF L.IRMSG IS SET. THE 
FORMAT OF THE NEW MESSAGE IS? 

a SMFID>/EFID> NOT COPIED CON DISK)» MT<UNIT> 
STi O I IOI EO RIO OI OOOO IOI IOIOIG IR III IOI IOR IO ek kite io 99999999 


S#PATCH NUMBER 167 FOR TSSMCP CONTAINS 14 CARD. 


$3 
$I 
$I 
$1 
$1 
$3 


1F KYNn=7 AND FIBF13].6728310]#ABS¢ COBOL) THEN GO FIND ELSE 


DATE 6/73/76 
BY JTC # MSA CENTRAL 


THTS PATCH FIXES OTHERFILFOPFNOUT SO THaT cOROL68 PRINTER 


BAcK UP 


TAPES Wrhlk waVe CORRECTLY FORMATTEn PRINT 


FILE LABLES WRITTEN ON THEM, 
SUIS IIG IOI R  IOIO UIC OI IGIOIOR ICIS IG OIG WOR IOGIOI OR doi OR ORE 499990600 


S$#PATCH NUMBER 168 FOR TSSMCP CONTAINS 11 CARNS! TAPE PARYTY 


Be IQ HR dQ 


CH 
TH 


LABEL ERRORSPDISKERR®DS#XsSWoLPeDKsDXeDX19NCeOKeLL3 
SWITCH TYPE 3% OKoLPeOK eOKsnKs OK eOKeOKs0Ke OKs 


ECK FOR A PARTIAL WORD BINARY READ WITH NO PARITY ERRORS, 
IS tS ILLEGAL, AND 1S MARKED AS BEING A PARITY ERROR, 


TF €R,0182#12) AND @4462) = @0440 THEN % RIN READ*=NO PAR 
IF Refi5#31 4 €C8"R,£22811) AND 79 THEN % PART WD XFER 
R.f 2881] te MOD3;0S3 X MARK AS PARITY ERROR YF MOD II! 


SVOIDT 04167801 
IF U LFO 15 THEN & TAPE 1/70 


$1 
$1 
$3 


$1 


DATE 9/1 


4/76 


BY JTC * MSA CENTRAL 


THIS PATCH REWRITES THF CONF FOR HANDLING PARTIAL WORD TRANSFFR 
ON BrNARY READS FROM TAPE. StNCF THIS 1S ILLFGAL FOR THE B5700 


SUCH 1/9 RESULTS ARE MARKED AS PARITY ErrorS: PREVIOUS To THIS PATCH 


SPACE REVERSE 1/0 S |.00KED LIKE PARTIAL WORD TRANSFERS AND THIS 
CAUSFD ONLINE /MAINT TAPF CONFIDENCE ROUTINES 192, AND 3 TO FAIL. 


NOTE! 


STTES THAT RFAN NON@STANDARD TAPFS THAT WAVE BINARY 


PARTTY AND PARTTAL WORD BLOCKS MAY WANT TO ELIMINATE THIS PATCH 
SINCE IT WILi, CAUSE RETRIES To BE DONE ON SUCH TAPES. 
BRR IO RIOR OR RR RIO IOI IOI IR ORIG ICICI I OIOIOIOI IOI g IOROIOIOIG I ae aicie aie ak 


28270828 
28270830 
28281550 
41493085 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 


00000000 


38272000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


00000000 


04125000 
04128000 
04129520 
04129530 
04129540 
04129550 
04129570 
04129580 
04129590 
04167100 
94129560 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990600 
99990900 
99991000 
99991100 


voooo 799 59397595 


> Ene Reo Be Bie Ber Bie Bee} 


o 


ovo 09 9900 FJVI990V 099990 90972 9 


166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 


167 


167 
167 
167 
167 
167 
167 
167 
167 


168 


168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 
168 


$#PaTeH NUMRFR 169 FOR TSSMCP CONTAINS 4 CARDSe 


PPePROcFSS!#x03¢ . 20602855 
TF UNTTNO232 THEN CIDROWFUNTINO@32).63257880 ELSES 20606900 
1F UNTTNO#23 THEN READERASCFF19%0 ELSES 20606910 
IF UNITNO®24 THEN RFANERAGEFFI:303% 20606920 


$1 RY ndJZ 7 MSA crNTRaAL 
$t SOrTWARF FLASH 201 
BURR ORR ROTO RIOR ROI HONOR RGR OIIOI SRI gO RRR IOI Rk RIG ROIS OIOKG i aka 


S$#PATCH NUMBER +70 FOR TSSMCP CONTAINS 14 CARDS 00000000 

BEGIN IF XLST#O THEN XiSTterpMeSPACECXLSTSZ1230)19830L8238110]3 20567005 
$1 DATE 9/17/76 99990000 
$3: RY Jtc @™ MSa CENTRAL 99990100 
$1 . 99990200 
$t THrS PATCH PRFEVENTS fXTRA EXCEPTION LISTS FROM BUILDING UP IN 99990300 
$t CORE WHEN PROCESSING REMOVE OR COPY CARDS WITH MULTIPLE 99990400 
$t EXCEPTION LISTS, 99990500 


SIG IOI IO INI OIG IGIOIIOII IOI IO OIOIDIG I IOI a i ioloioi oink ioe tek 99990600 


S#PATCH NUMBER 172 FOR TSSMCP CONTAINS 9 CARDSe 00000000 
ANFCK © Os FYRSTORSEC «© 07108100 

r 07108999 
$ 07109001 
REGIN LarnFL TRYAGAIN: 20289030 

$ . ; 20289330 
Xta6s MPBUFS17149203 20289335 

1298 GO Th EXTERNALS % 35 = SPECIAL INTERRUPT 46011500 


130% GO Tn EXTERNAL3 
$31! GO To EXTERNAL 


% 36 = DKA READ CHECK 46012000 
% 37 = OKB READ CHECK 46012500 


$t BY DUZ = MSC DETROIT 99990000 
$1 DATE 11/29/76 99990100 
$t THIS PATCH wee 99990200 
$i 1) REMOVES SOME REDUNDANT CONE FROM PROGCENURE "*COM23"3 99990300 
$t 2) REMOVES UNNECESSARY LAREL IN PROCFNURE “PRINTTHECOVER™? 99990400 
$1 3) PREVENTS SYSTEM HANG IN "nO UNTIL FALSF&"” LOOP WHEN orSK 99990500 
$3 READ CHECK YS WNETECTED. THIS WAS ORIGINALLY INTRODUCED IN 99990600 
$t TEMPORARY PATCH #202% MARK XIV SYSTEM RELEASEs 99990700 


$ Do ROR RO ROR ROR IOROIR I NRK Ok ORR OIG IOI HOR ROR OR TOR ROR ROKR RE ik ORR toi tok ek I99999NG99 


S#PATCH NUMBER 173 FOR TSSMCP CONTAINS 2 CARDS» 00000000 


raS5700 TS*=MeP MARK XVIE,0.172 O5/11/77 00001000 
WtTo" 00005040 


 ] 


9g 9gU9I7T OUTS 


o 


~ Bw Bo Be be Reo Ew he Be Be Ro hw geo Re Be Be he ie | oO 


169 


169 
169 
169 
169 
169 
169 
169 


170 
170 
170 
170 
170 
170 
170 
170 
170 


172 


172 
172 
172 
172 
172 
179 
172 
172 
172 
172 
172 
172 
172 
172 
172 
179 
172 
172 


173 


173 
173 


$t BY DUZ = MSC DETROIT 
$1 DATE 05/11/77 . 
$t THrS PATCH UPMATFS Tur MARK LEVELS IN THE SYMBOL FILE, 


99990000 
99990100 
99990200 


BBO RR EOI ORIG II IOIOOIG IG RIO GIO iO iO oR dor #99990 300 


$#PATCH NUMBER 201 FOR TSSMCP CONTAINS 005 CARDS 


IF US30 THEN . 
REGIN Mp@1534+C 78a! 
DCIOFINISH¢R)3 

END? 

IF CEte(MC@1534C182R900 2637794 VteT.6538)) NEQ O THEN 
$i THIS CHANGE caUSFS THF RESULT DFSCRIPTOR OF FACH 1/0 TO RE 
$? STORED INTO MP @915341/0 CHANNEL NUMBER), 
$1 
$8BY JCF 
$3TR atee 
SInaTe 3/6/73 


00000000 


04129100 
04129200 
04129300 
04129400 
04130000 
00000002 
00000002 
00000002 
00000009 
00000002 
00000002 


BIOORG IRR RII IOI IOI IO IOIOIOI I ORO IGIOIGOIIOR GIGI IOI II IOI IO aK dak 


SEPATCH NUMBER 2902 FOR TSSMCP.XV? CONTAINS 25 CARDS 


»>MEMTOG = TOGLE +f 43:1}#+eMEMTOGMASK =@20# 
TF CMEMPWATTSTORF1s0)3.0CFI80 THEN 
1F NaT MEMTOG THEN SLEEPerTOGLE)«M 
DEFINE STAREDYCSTOREDY4 »STOREDY2)= IFLCMEMESTOREDY 150 
MEMTOGSSSTORFDY2 FLSF 
MEMESTORFHY1,0), 01781) 'sSTORENYo#s 
STORFDY(O,0)3 
STOREDY(0,1)3 
STORFDY(020)3 
. STORFDY(0»1)3 
BFGIN WATTSTORF(0O)3 STOREDY(020)3 
STOREDY¢009)3 | 
WATTSTORECPIiMIX)3 STAREDYCPIMIXeO)3 
STOREDYCPIMIXeS)3 x 
WAITSTORECPIMIXYS STOREAYCPIMIXS O)3 : 
STORFHYCPIiMrxXet93 & FREe MEMORY TO ALLOW "aRTN® TO ar RROUGHT IN 
WAITSTORE@MIX)3 STOREDYCMIX,0)3 
STOREDYCMIXs 993 
STOREDYCO*0)3 
- STORFNY( 00193 . 
AeArN$ WATTSTORE¢M1X)$ STORENYCMIXs0)3 
STOREDY(M1X,4)3 
WAITSTORECPIMIX)) STOREDYCPIMIX#093 
. STOREDYCPIMIX#193 
MeMTOGiad) 
StTHTS PATCH ALLOWS CELI. ZFRO TO BE MONITORED FOR INVALID WRITES 
SIcAFTER INITIALIZED. tN ORDER TO ENABLE THISe A NeW TOGLE 15S 
$t USFD » MEMTOGe RATHER THAN MrFO},C1784]% TO INTER!.OCK MEMORY 
$1 BELOW THE FENCE. WITH THIS PATCH REFERENCE TO STOREDY 


00080500 
00093110 


EMTOGMASK ELSE E1,S600093120 
JJ.€CFIJ=0 THEN 


00093400 
00093410 
00093420 
02396130 
02396500 
02434490 
02434530 
09617000 
09624000 
16841400 
18843500 
18843800 
18845000 
20119300 
20120300 
21032000 
21093000 
24309000 
24313000 
29544000 
29548000 
44114100 
90000004 
90000005 
90000010 
90000015 


o 39059 


- iw B= Bw iw Bo Re Re Re Re Re Be] 


oO 


99o0 CVI9T 8909 39907 0799 08909 "0707 T0979 Vv07T Ff 


{73 
173 
173 
173 


201 


2014 
204 
204 
204 
201 
201 
201 
204 
204 
201 
2014 
201 


202 


202 
202 
209 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
2092 
202 
202 
202 
202 
202 
202 
202 


StMUST BE MADE AS*STORENYO(MIXsTOG)3% WHERE MtrX 1S THE MIX TNDEX 
$toF THE PROCESS AND Toe 18 EITHER O OR fe 

$3 

SeRY aMS 

$ItTR 1790 

Stnatr 3/6/73 


90000020 
90000025 
00000002 
00000002 
00000002 
00000002 


BRO OIRO IORI ROI ORI IIGSIOIOIGIGR OR I RIOR INORG IGIUIOI ROR ROR IOI IO IO HONORE Ii lok 


$#PATCH NUMBFR 503 FOR TSSMCP,XV2 CONTAINS 29 CARDS 


BOOLEAN OKSEGZEROWRITES 
IF cpcloOrSc,6315] 
$ SET OMIT = DKBNODFX 
»nUP) ® @14 OR PCXCH 
& POP OMIT 
> * @6) AND 
NOT ronrSC.f£2481) AND 
CCCPCMFLODESC.£CFI)2DUP) FQV O)BNOT 0) OR 
CCPCXCH) FQV 32).=N0T 0)) AND 
NOT OKSEGZFROWRITE THEN 
BYBY¢"SEGMENT ZERO OVERWRITEes93)3 
OKSEGZEROWRITEs ®TRUES 
OKSEGZFROWRITE;®FALSE? 
OKSEGZFROWRITE:STRUE3 
OKSFGZFROWRITE :@FALSES 
OKSEGZFROWRITE SS TRUE? 
OKSEGZFROWRITE SSF ALSES 
OKSFGZFROWRITES TRUE 
OKSFGZFROWRITE mF ALSES 
OKSEGZFROWRITE:=sTRUES 
OKSEGZEROWRITE:*FALSES 
OKSFGZFROWRITE:=TRUES 
OKSFGZFROWRITE:eFALSES 
OKSEGZFROWRITE re TRUES 
OKSEGZFROWRITE =F ALSES 
OKSEGZFROWRITE:8TRUE} 
OKSFGZFROWRITE:®FALSES 
OKSFGZFROWRITE p= TRUF3 


OKSEGZFROWRITEs@FALSES 
$ITHIS CHANGE IS PROVIDED FOR DFRUGGING PURPOSES ANn CAUSES THE MCP 


$1TO HANG IN A *NO UNTII. FALSE® LOOP WHENEVER DrSK SEGMENT ZERO 158 
StABOUT TO BE UNEXPECTENLY OVERWRITTEN, 

$1 

SIrARY JCF 

$iTR 1766 

StnaTe 3/6/73 


00422100 
04004110 
04004119 
04004120 
04004121 
04004130 
04004140 
04004150 
09004155 
04004160 
04004470 
05665399 
05665404 
06059659 
06059661 
09645999 
09656001 
09682609 
09682614 
40249400 
40262100 
42600919 
42600924 
42713949 
42713951 
42730999 
42731001 
44411399 
44011404 
44019424 
44419403 
44419495 
00000002 
00000002 
00000002 
00000002 


SIRO OIG SII SI IOI IOI IR OIG I IORI IDE g IOI IO SOIR IONE I IG r a IOI I RO i tok 


S$#PATCH NUMRER 301 FOR TSSMCP,.XV2 CONTAINS 3 CARDS 


te MOnr t= (MOnFRO) AND BLFEN & 20 THEN 


38107610 


sl3u sv 9009 


202 
202 
202 
202 
202 
202 
202 


203 


203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
20 

203 
203 
203 
203 
203 
203 
203 
203 


301 
301 


SAVEWORD te SAVEWORD OR TwO;rU)3 
CNTCTL te DIREC te 0} 

8% THIS PATCH ALLOWS THe READING OF PURE BINARY CARN INPUT? 
$1 IF THE FILE FS NECLARFD AS ALPHA WITH A BUFFFR LeNGTH 
$: OF 20 WORMS, ALSO THe CARD RFADFR WILL RF MARKED SAVED 
$$ WHEN THE PROGRAM CLOSES THE FILF. CARE SHOULN BE TAKEN 
$1 WHEN USING THIS FFATURE SINCE A "QEND”™ CARD WILL NOT 
$: BE SEEN RY THE SYSTEm, IT IS THE PROGRAMS RESPONCIBILITY 
$8: TO DFTECT WHEN THE END OF THE FILE HAS OCCURRED. 


SIRY JCF 
SIDATF 3/6/73 


38107620 
38107700 
90000015 
90000020 
90000025 


00000009 


Bk ORR RR IRR IORI RG III ROIOK IGOR OR IOIORGICI GK ROR IR ORI IOI IR RR IOI IOI KOR IOI OK MC te ge 


S$#PATCH NUMRFR 302 FOR TSSMCP CONTAINS 049 CARDS 


RerAL RESULT = =43 
BOOLEAN ZEROTIMEOUT; 
ZFROTIMEOUTS®N, £3980 73 
NC328172303 
IF ZFROTIMEOUT THEN 
REGIN 
RESULT!«23 
STREAM(Ntea. (CFI) )3 
OS:#8 LIT "TIMES i 
GO TO RETURNS 
END} 
STREAMCTISCO"END™ 861996 2424286198A2)3 
BFGIN SfttsAos Ni teLnc Ts Dit=2014+43 
IF 4 SC NEO De THEN TALLY3=148 
— Tr=TALLyYs 
ENDS 
RrSuLT@sPOLrsn?: 
GO TO RrTURN3 
IF PAPFRTAPE TWEN 
BEGIN STREAMCTy=¢"END") eSOURCE)? 
RFGIN SIe=LOC TI DI esSOURCE? 
S112Sye53 HNliaplets 
TF 3 SC#eDC THEN 
BEGIN DItapte3s DSte3 LIT © "3 END} 
END} 
FLAGS?24,% 
ENN ELSE 
REIN STREAMCTISC"END” )ISOURCE) 3 
BEGIN StemSOURCES OrtsLOCc T3 
SreeSteq3 Di teD1453 
IF 3 SC NE® OC THEN TALLYte#?13 
TtzTALLY?} 
FNDS : 
TF POL1Sw THEN GO TO CE3 
ENDS 
BEGIN STREAM(SHURCE eKtTs®PAPERTAPF )3 
IF Se®MARK THEN . 
RFGIN NtselLOr Kz nSie3 LIT "END: 


00000000 


03292300 
03296250 
03296300 
03296350 
03297410 
03297415 
03297420 
03297425 
03297430 
03297435 
03297440 
03307100 
03307110 
03307120 
03307130 
03307140 
03307150 
03317500 
03624400 
03624404 
03624402 
03624403 
03624404 
03624405 
03624406 
03624407 
03624408 
03624410 
036294420 
03624430 
03624440 
03624450 
03684460 
03624470 
03624480 
03624600 
03625300 
03625310 


~ 


304 
304 
301 
301 
304 
304 
304 
301 
301 
301 
304 
304 
301 


302 


302 
309 
302 
302 
302 
302 
302 
302 
302 
302 
309 
3092 
302 
309 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
3092 
302 
302 
302 
300 
3020 
302 
302 
302 


ee 


SrteSl4i3 DY'=D1733 03625320 

1F 3 Scedc THEN 03625330 

BFGIN TALLY! =2s KiteSr!} Ol 8ak3 03625334 

TcDri=eD1933 03625339 

DSte#3 LIT * w)y 03625333 

FND ELSE TALLYt#®13 03625334 

ENDS 03625340 

Rt=POLISH} 03625600 

FLAGSIt2IF R THEN 4 ELSE 03625610 

IF CC(R*2) AND PAPERTAPE) THEN a ELSE 03625670 

a IF CCR®2) AND FLAGS) THEN 4 EL&F FLAGS} 03625630 

$: THrS PATH IMPLEMENTe THE FOF BRANCH IF “QF Nn” Te TYPED 00000009 
$: TO A REMOTE JOB AS INPUT, 00000002 
$t ALSO THE PARITY LABE:. WILL BE TAKEN IF DATA 1S NoT PRESENT AND A ZER000000009 
$t TIME OUT WAS SPECIFIFD, 00000002 
$ 00000002 
S$3RY JCF 00000002 
S1TR: Leas 00000002 
SIDATE 3/6/73 00000002 


$# Patcw NUMRFR 401 FOR TSSMCP,xVTl00 CONTAINS Of CARNS.F IVE MYNUTF SLEEP LYM?” 


£1 
ft 
$3 
$I 
$i 
$: 


BOGOR IRON ORIOII IOI RIGO OIOIOR ICI ROI IOIGIGIOIOI IR ROR EOICIOR IOI ak ak 


TIMELIMITMAX * 3600 x S * 18000 }3 S$<03 Ba01"GRK 
THIS PateH tNCREASFS THe MAXIMUM SLFEP TIMF ABOVE THE FFENcr FROM 
158 SECONDS TO FrVE MINUTES PLUS ONE MINUTF FOR FACH ACTIVE JOB, 
FAR Ton MANY JOBS GFT KILLED AT «+5 SECS THAn IS REASONABLE. 


GR KENNEDY 25FFR76, RROCK U, PaTCn 401 


22013130 


$# PATCH NUMBER 403 FOR TSSMCP.XVI,00 CONTAINS 01 CARDS«ePREVENT FLAG BITS ON CM, 


$3 
$1 
$e 
$% 
$3 
$3 
$3 


$ Cor I RII RIOR RII IOI OI OIG BOR IORI ORIG Gi ROR TOR iO i kok 


STREAMCRASE)3 BEGIN 3¢DSeLIT"O"$ Dlent+7)3 ENDS Z403"GRK 


THIS PATCH PREVENTS SYSTEM HANGS CAUSED BY GARBAGE IN SEGMENT ZERO 
Tn PROCEDURE CHANGEMCP, . as 

THF CURRENT MCP NaMe(S) AND BASF DISK aMDRESS MaY HAVF THF FLAG BIT 
ON ¢TT HAPPENFN AT LFASF ONCE), 


GSR.KENNEDY 17FEB76, BROCK U, PATCH 404 


09680450 


$# PATCH NUMBER 407 FOR TSSMCP,XV!I,00 CONTAINS 01 CARDS.»CONTROLCARD SCREWUP, GRK 


$3 
$! 


PCDIRECTORYSEARCH(NABS(CMMLOJ)eIF CMMEO1<0 THEN "DISK " ELSE 


THIS PATCH FIXES A PRORLEM IN CONTROLCARD WHICH CAUSED THE MCP SAVE 


20606665 


=) 


y9o0 9 0°77 9 


pe ] 


ogeT9T 3209 0 3 


ou Ss =) 


302 
302 
302 
302 
302 
302 
302 
3092 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 
302 


401 


401 
401 
404 
404 
404 
401 
404 
4o1 


403 


403 
403 
403 
403 
403 
403 
403 
403 
403 


407 


407 


407 
407 


$3 
$3 
$! 
$t 
$3 
£3 
$3 


BIO IOI IORR IOI ERI OIG ORI IR IG OIE I IGIGIGI GIO ISI IORI RIOR OIG IOI i I ROR IOIO I i iat 


CORF TO GRANUALLY INCRFEASF. THF PROBLEM WAS WITH CONTROL CARD 
FRRORS ON COMPILE CaRnS. AT “"INCSC* THERE WAS a CALL ON 
DrRECTORYSEARCH WiTw =cMMr01 SO AS TO NOT RETURN THE FILE HEADER, 


BUT = COMPILERS HAVE CMMfO) NEGATIVE® SO Je, 
RECEIVED FROM NREXE!, UNIVERSITY BY PHONE ON 16JUL75» 


GIR eKENNEDY 100CT75, BROCK U, PATCH 407 


$# PATCH NUMBER 410 FOR TSSMCPeXVI.00 CONTAINS n2 CaROSeLET "SD" OR “CL” WORK, 


R**Z 


$1 


$ Skok a kk RRR yO ROR yO GREK KG yok Rk ROI iO RE OIGIR OR irk ROR RR ROK OR RIOR KIO igo 


eecTyPre9) OR CTYPEH19))3 2DSg8, Spe9eclas9 %410 


JaRrMrxe60.6489) 
Cittlec¢TYPE29) OR CTYPEE19)93 £DSs8,SDR9sCLe19 440 


JARIMIXs61, 


THIS PATCH TO KEYING SHOULD ALLOW "SD" OR "cL" TO SAVE PSEUDO@DECKS, 
We WILL SETUP THE "“SAVE*THE@DECK" BIT BEFORF CAILLING TERMINATEs AS 
In THE DCMCP, 


GR KENNEDY 13JUL76, BROCK Us PATCH 410 


16212100 
16216000 


$# PATCH NUMBER 50a FOR TSSMCPeXVI.,00 CONTAINS 92 CARDSeEOU JOR STATISTICS sGRKe 


$3 
$1 
$3 
$t 
$1 
$3 


REAL CPUlO@41 4, Z504°GRK 
PeO)3 ¥ZFRO OUT CPUTO Z504™GRK 
CPULO+GETSPACE (10,001 423 B504"GRK 
MPCPUIO+2 yeVECTORIOIS ZJOB PREFIX Z504"GRK 
MECPUIO+33¢VECTORELIs ZJOB SUFFIX %504"GRK 


MtePUTOsd yer JOR MrxX INDEX %504°GRK 
MecPUTOeSae¢ (Sri JeNEXTMOM) 430) DIV 603 xcPU TrMF %504*GRK 
MPCPULOs6 VEC CSP2IeVECTORIGIFTOTIMELIIV430IDIV 603%504"GRK 


MPCPULOS7I¢SFII@CLCLIIMSCLEII)xCHUNKZIZE+CHUNKZIZES ®504 
STREAMC YL eePUYO)3 Z504™GRK 
PEFGIN OSeS5L1T* FOR “$s SreCPUTOs Stesrei73 Z504"GRK 
DSe7CHRE DSeLIT"/™$S SteSt413 DSe7CHR3 %504"GRK 
DSe, 1T*a%s DSePDECS edt} DI,D1@23 %504"GRK 
DSeFILLS Diels OSe5LIT*sPST#":; DS*S5DEC3 2504"GRK 
leDys DleNr"5s oOSe4FrbLby Dies Z504"GRK 
DSeSLIT™+TOTSH"s OSeSDFCS TeDI: DIleDI"53 %504"*GRK 
DSeaFILLs Niles DS*6LIT™»cORER" } 2504"GRK 
DSe5NFC3 TeDIs NleDI=53 nS*4eILbs Z504"GRK 
Dters NSeLiTT*%e"3 2504"GRK 
END STREAMS Z504"GRK 
SPOUTERCCPUIOSUNTITNO264)3 %504"GRK 
IF UNI TNO¢O THEN 504"GRK 


THIS PATCH PROVIDES THE FoJ JOB STATISTICS mESSaGE SIMILAR TO 
THE DCMCP MESSAGE. IN ADDITTION® MAXIMUM CORE USAGE 1S PROVIDED, 


SPOUTFR NOCUMFNTATION SPOUTFREMESSaGr se UNITNO*TYPE) 


ReSeSsesesesewseersresrtstee Setecemseehtesereecsegeresen 


14351306 
14395060 
14413020 
14413030 
14413049 
14413050 
14413060 
14413070 
14413080 
14430031 
14430032 
14430033 
14430034 
14430035 
14430036 
14430037 
14430038 
14430039 
14430040 
14430044 
144300490 
14430043 


937909 000 29 909090 909909 09 909099 90 7909 


we ve Bw Re Bw Bw ke ee | 


pw J 


g 90 Co o90 O79 


o 


407 
407 
407 
407 
407 
407 
407 
407 


410 


410 
410 
410 
410 
410 
410 
410 
410 
410 


504 


504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 


$3 


$1 
$3 


$t 
$3 
gt 
$2 
$1 
$t 
gt 
$3 
$3 
$1 


DFFINES t SPOUTCMESSAGE) = SPOUTERCMESSAGE » 001) 

eamemwwem SPOUTITCMESSAGE*s TYPE) = SPOUTERCMESSAGE» Oe TYPE) 

NOTES ¢ =-CONDITION== MESSAGE DISPATCHED COMMENTS 

Ce UNITNO TYPE SPO PACKET LaG SOC FF OH Rm me ww 
N/A 0 N Y Y 
N/A 64 N Y N FOR Packet PAaGF ONLY 
N/A NEG. N Y N 
N/A TRUE Y Y Y 


GR KENNEDY 1OJUNT6, BROCK U, PATCH 504 
THIS PATCH IS NEFDED BY PATCH 509 


SGI RIGGS IOIIOI IOI I RIOR NOR IOIOI RI EGR IOI IOIOR I HOI OfG io 


PatcH 508 FOR TSSMCPlXV.3 CONTAINS 4 CARDS, PREVENT FILEHOLD FOR “cH 


THYS REMOVES A POTENTIAL INVALID LINK PROB!.Em IN PROCEDURE LIBCC WHIC 
WOULD OCCUR IF A FILr WERE REMOVED WHILE IN THE PROCESS oF BEING 
A) REMOVED OR B) CHANGED, 7 
THTS ALSO PREVENTS A FILE HOLD SITUATION FROM OCPURRING WHEN A CHANGE 
COMMAND 1S ENTERED FROM A REMOTF TERMINAL, 
NATAL, U, PATCH 508 

IF T GEQ 64 THEN 

TeDIRECTORYSEARCHCCMMLOJ*+CMME1IJ&CPCUNITNO* DUP #25 OR 
PCXcurs=300CLE473120498 ENDS 
1F 1 GFO 64 THEN 


$k ROR I OROIOR RRIOI ORIG IOI RIGID RII TOR IORI REO IGROIOIOIG I OR IOIOIOR ROI I RO ICR OK HE Otto 


$# PATCH NUMBER 509 FOR TSSMCPeXVI,00 CONTAINS 17 CaRDSePRNPBT/LOCNTRL B 
TF P THEN MAKFLOGOCMFSSAGE»ABSCTYPF) 3 %509"GRK 

END} tF TYPE 18S O THEN TYPE!?#643 ¥509"GRK 
SPOUTITCLOGINE as ZSOO"GRK 

64y5 %509"GRK 

SPOUTIT(CVeEtTOR INX 0» Z509°GRK 


$1 
$1 
$1 


te NOT ¢ ¢MrcPU7043) Fav "O1SkK "YsNOT O ANDZ509 
( CMECPUIO4¢9) FAV "PRNPBT ")eNOT 0 ORE509 
CMECPUIO+2) FOV "LACNTRL™)@NOT 0992509 

THEN CCLINK OR CANDYMFSS) aNn EOJMFSS %509"GRK 


AND cCNOT JARO)" ¢921] OR F0UK) Z509"GRK 

FLSE *"FOUK)3 £509"GRK 

SPOUTERCTs»UNITNO, 2509"GRK 
IF NOT € CUAREMIXe1) EQv "DISK "yev0T O AND Z509"GRK 

€ CJAREMIX*®0] EQV "PRNPRT "y2®NOT 0 OR &509"GRK 

— CJARIMTX£07 FQV MLNENTRL™yeNOT 0) ) %509"GRK 

THEN eceNOT SrO03).72217 OR CANDYMFSS) £509"GRK 

AND BOJMESS AND I OR BOJK) E:.SE @ROUKY? %509"GRK 


THIS PATCH SUPPRESSrS ALL "ROU" AND “"EOU" SPO MFSSAGES FOR 


"PRNPBT/nNTSK*® AND ")DENTRL/NISK®, THIS SHOULD WELP ELIMINATE 


ANGF* 
H 


20574917 
205776826 
20577827 
20577628 


OU/EOU 


02134000 
07134005 
12704000 
12704100 
14430000 
14430009 
14430004 
14430006 
14430008 
14430010 
14430019 
20104200 
20104300 
20104310 
20104320 
20104330 
20104340 


eo Bw Bw Bw Bw Re Be Ber Boe Re Be Re be Rw) 


og 3uvD VVIVTIIIVOCC 3 


p98 990 929 90900 00 99009099 000 5S 


504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 
504 


508 


508 
508 
508 
506 
508 
508 
508 
508 
5068 
508 
508 


509 


509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 


$: Spo CLUTTER®, ; 

$: NOTE THAT SpnUTER HaS REEN MODIFIED TO LOG NEGATIVE MESSAGE TYPES 

$t RUT NOT SPOUT THEM ¢SIMILAR TO TYPE 64 ™ RUT TYpE IS RETAINED), 

$t 

$t GLR.KFENNENY 31MaY76, RROCK U. PATCH 509 

$: TurS PaTew USFS VARTABLF CPUT1O WHICH IS DFFINED tN PATCH 504 

$1 CORRECTED TO INCLUDE. BoyMESS BY DR, UCS¢ 

$: SEF ALSO DREXEL U, PaTCH 716 

BC IOI III IRI ROR OR TORIRIGIOIIGIOIGIOIR ORIG IER IOIOR IOI IOIOR IOI ICR IOIOI II IOIOK iO at 


$# PATCH 510 For TSSMCPIXV.3 CONTAINS 2 CARDS, INITIALIZE TYPED PROCEDURES 


$t THTS PATCH CORRFCTS aN FRROR INTRODUCED BY PaTCH NUMBER 24 TO MCP,XV 
$1 WHERE THe VARTABLE PROCVAL WAS NOT INITIALYZFD IN THE PROCENURES 
$i w"ACESBIT* AND *"CCCOMPTLF™, WHEN RETURNING FROM THE PROCEDURES THE 
$: VALUE OF THE TYPED PROCEDURES WAS TAKEN FRM THE LAST VALUE OF 
$1 PROCVALe THIS CAUSEN ODD FRRORS. EsGe THF CARDS! 
$t Q@ LOAD FROM XYTAPF ANY/NAME 
$$ Q@ cOMPtLr PROG/NAMF FORTRAN 
$t WOULD RESULT TN "CONTRO! CARD ERROR AT FORTRAN", THE TYPED 
$3 PRACEDURES ARE NOW INITIALIZED, NOTE&= ACESBIT NOW CCSET 
$t NATAL U, PATCH 510 
; CCCOMPILE+03 
eCSET¢03 
$ Skok OR ORR ROR ROI RO FOR gO OI IOIOFOR RRR OR ROR IORI RGIOR RR ROIOIOK ge aOR ORR oR gio kok iO dio ok 


$# PATCH 571 For TSSMCP:XV,3 CONTAINS 4 CARDS; "PC WITH 6& JOBS ON DIS 


$1 THrS IS TO FIX THE CaSE WHERE THERE ARE 65 JOBS ON DISK AND A *PC® 75S 
$1 DONE: PRYOR TO THIS THF MESSAGE WOULD COMrF OUT aSt= 65 JORs #NNNN 
$t WHERE "NNNN® WAS THE NUMBER OF THE LAST DECK ON nISKe 
$t NATAI, U, PATCH 5191 
Sle*Loc T13 
IF Sc#"O" THEN GO TO AQ 
rFLSE Sy#Si+l3 


AQt BEGIN DSe3 LrT "Ss, "3 
BB ke te he kN kei ORION gO ik ik ai aI RRR kk ka ROR kg ROKK ekki ik a MOR teak ak 


$# PATCH 512 FOR TSSMCP.XV.3 CONTAINS 7 CARDS, ERROR PROGRAM PARAM CARD 


$t THIS PATCH REARRANGES SOME CODING IN PROCEDURE PpC FOR CLARITY AND 
$1 GENERATES A CONTROL CARN ERROR FOR IDENTIFTERS ON PROGRAM PARAMETER 
$1 CARDS WHICH ARF UNDEFINED. 
$1 NATAL U, PATeH 512. 
ELSE TF TYPESCORFV THEN 

BEGIN Xf20) « TPNO DIV 643 . 

DO UNTIL ¢ TON « SCAN) =MAXV OR JODePER?TOS 

IF LODEMAXV THEN PCEXL20]]*I10R) ELSE 20 TO DOWNS 


20584340 
20711100 


K 


07295100 
07295102 
07295104 
07295160 


$ 


20504500 
20505000 
20507000 
20507300 


Sova Iv 00 —_00 J oS Jy VIVO F99NI IF 980 0—0 3 oO po Baee Row Tew Eee Boas Tie Eine Bow} 


o 


vung 990 0o°—730 


509 
509 
509 
509 
509 
509 
509 
509 
509 


510 


510 
510 
510 
510 
510 
510 
510 
510 
510 
510 
510 
510 
510 


511 


514 
5114 
514 
511 
511 
511 
511 
511 
541 


51? 


512 
512 
512 
512 
512 
512 
512 
512 


EwD 20507200 
ELSE !F TYPF2PRIOR AND TYPESSAVEV THEN 20507300 
XL184+TYPE=PRIORJ*TPNO ELSE GO To FRROR3 20507400 


BDO RIOR SOR IORI IOR IOI IORI IO IOI ROK IOIOR IORI GIGI OIE IOI TOR RIOR ORO RO% af ak iGO foie ake ake ak 


$# PATCH 517 FOR TSSMCP CONTAINS 3 CARDS. OVERLAY DISK SPACE USED UP 


$: WHEN A PROGRAM HAS EXCFFDED 1TS OVERLAY DISK SPACEs THIS PATCH WILL 
$3: CAUSE THe MCP To }SSUE THE MESSAGE "ARRAY ALAY SpACE USED UP" WHEN 
$1 OS@ING THE PROGRAM» INSTEAD OF “INVALIO ARRAY SIZE ION", THE LATTER 
$: MESSAGE 1S MISLEADING. 

$1 BY STEVE KELLEYs REQUESTED RY NATAL Uy, MaYs 1974 

$t NATAL Us. PATCH 517 


$: MONIFIEND FOR TSSMCP RY ARe UCSC JAN, 170 1977 
TERMINATE CMIX& SOLCTFIDS 06411010 
MBARRAY "» “BOLAY 6, % 99 41445700 
"BPACE Us “6SFD UP", % 41445800 


SCOR OIG ROR III OOOO OI ROR ORO III RIOR ISIIOI IOI BR HORROR i ik ak 


$# PATCH NUMRER 519 FOR TSSMCPeXVI,00 CONTAINS 01 CaROSeENABLE "FILE IN USE™ OK, 


BEGIN TeVWYRVOKE 3684206 IRCVIF Ae L 321797 3080226]3 Z519°GRK 18025000 
$3 . : . 
$$ THIS PATCH FNARLES w#rrlL IN USF™ SITUATIONS TO nF “OKern®, 
$t PREVIOUSLY ¢FXCEPT FOR LIBMAIN) THE ONLY ALTERNATIVE WAS DS", 
gt | 
$: G.R.KENNEDY 30JANT76, RROCK Us PATCH 519 


$3 S&r alLSO UCSe PATCH ai5 
EPSPS ELSES ECCLES SLPS CSCC EPC CTC CCE SCT PCLT eT CLIT eT Cee ee TTT TST Te TT TT | 


$# PATCH 521 FOR TSSMCP.XV.3 CONTAINS 17 CARNDSe FIX PROCEDURE “CCSET® 


$1 THrS PaTen FIXES THE MESS THaT PROCEDURF CeSFT IS INe 
$t THr PROBLEMS FIXED ARE? 
- A) PUL MERDERS OF ALL FILES REFERENCED BY TutS PROCEDURE ARE LEFT 
e 
$1 B) DIRECTORY WAS BEING UNLOCKED IN MANY CASES WHEN IT WAS NOT LOCKED 
$t BY TH1S PROCEDURE? 
$t C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED aT LINE 20739000 


$3 INSTEAD OF A FORGFTSPACE ON THE HEADER, 
$t NATAL U, PATCH 521 

BEGIN T#?3 GO TO Lis END} 20730000 
BEGIN FORGFTSPACECT)3 Tei1s GO SKIPs ENn3 20739000 
$ VOINT 20739100 
$ VOrnT 20739200 
FLSF BEGIN 20769000 
$ SET OMIT = SHAREDISK 20769100 
UNLOCKNIRECTORYS 20769200 


Qo 3:9 907 


ous 9909 090 790 3 


a] 


~~ Ju 990907909 39 


512 
512 
512 
512 


517 


517 
517 
517 
517 
517 
517 
517 
517 
517 
517 
517 


519 


519 
519 
519 
519 
519 
519 
519 
519 


521 


521 
524 
521 
52) 
521 
521 
521 
521 
521 
521 
521 
524 
521 
521 
521 
521 


$ POP OMIT 20769300 
LBMESS¢CMME2) sCMME 3) e*C114T0RI re 41 eOeSPOUTUNITe1)3 20769400 

ENO} 20769500 

FORGETSPACErT)3 20769600 

ELS BEGIN 20771000 

$ SFT OMIT = SHARFNISK 20771010 
UNLOCKnrRecTORyS 20771020 

$ POP OMIT 20771030 
END} 20777050 

$ VOINDT 207727301 20772100 


BIOORG IOI OIOIOR IOI RIO OR IGOR IORI IOI IOIOR FOR Ri ki IOI RIG io ok 


£# 


$3 
gt 
$! 


PATCH 523 FOR TSSMCP,XV.3 CONTAINS 1 CARDe “RESFRVE DISK REMOVED" SPO ONLY 


THrS PATCH MAKES THE "** RESERVE DISK REMOVEN" MeSSAGE GO TO THE SPO 
onrY. PREVIQUS).Y IT Al.So WENT To THE MESSAGE PAGE FOR THE JnB, 
NATAL Ue PATCH 523 
SPOUTEROZe25e(NOT LeRMSG) ANN 193 06353660 


BS kok ORO RIOR IORI FRR ROK ROR ROR kok KOR ROR ROI RO ROR GR ORI OIOR HOR RRO KOR iO ak 


PATCH 527 FOR TSSM&P CONTAINS 3 CARDS. FIXES TO “SET” ANN "RESET" 


THYS WILL ALLOW ONG TO FNTFR A "*SET® OR “RESET” AONTROL CARN FROM 

THF SPO AFTER A CONTROL CARD ERROR ON Tue LAST INFORMATION ENTERED 
FRoM THE SPO. PRIOR To THIS» EVEN THOUGH THE CoRRECT INFORMATION WAS 
ENTERED FoR A SET OR RESET CONTROL CARD» THE FIRST WORD WOULD NOT BE 
RFrOGNIZEN» RESULTING IN A FURTHER CONTROL CaRD FRROR, 

THrS WILL ALSO FIX Tur CASF WHERE A SET OR ReSET CONTROL CARD 
FOIL.LOWED AN EXECUTE CARD, THE SET OR RESET WAS REING TAKEN AS A 
PROGRAM PARAMETER CARD, 


$1 NATAL Ue PATCH 527 
$8! MOniIF TFN FOR TSSMCP paY NRe UCSC JAN, 175 1977 
CONTROLA! te ¢T « FILEV OR T > COBOL) AND acCUMrO) ¢ CMPLR THEN 20694300 
1F T GE@ UNLOCKV AND T LEQ RESETV THEN GO TO FINIS 20604350 
IF (T2pACKET) AND CTSRESETV) AND CT#RUNV) THEN 20608078 


BD OR RIGOR RI IOI IGIOIOI OR OR IGOR IORI ROR BGK RRR Ok Rik RO aOR Rk dak 


$# 


$3 
$1 
$t 
$1 
$3 


PATCH 52a For TSSMCP CONTAINS 1 CARD» TrY DISk SPACE AFTER RESERVES REMOVE 


THrS CAUSFS ANOTHER ATTEMPT TO set miSK SPacr AFTFR RESFRVF nISK 1S 
REMOVED +NSTEAD OF SPOUTING NO USER DISK AND FORCING THE OPERATOR TO 
DO AN "nk" For THE JnB, 
NATAL Us PATCH 528 
MOnTFE TEN FOR TSSMCP RY nRe UCSC JAN. 175 1977 
FOReETSPACECBUFF)S PCX1T)3 06353675 


BIRO RIO OR IIR RIOR RIOR RIOR RI IOI NOR IOI I AOIOR IO IOIGR IOI ITOK ake ikea 


BivowvvsvwsJVve VII 


o 


fe Bie Siw be Bee Bie Bowe Ew Ber Bee Bie Eve Be Bie ] p> oO 230009 


yo 3720 009 9 


521 
521 
521 
521 
521 
521 
521 
521 
521 
521 
521 


523 


523 
5?3 
523 
523 
523 


527 


527 
527 
527 
527 
527 
527 
527 
527 
527 
527 
527 
527 
527 
527 


528 


528 
526 
528 
526 
528 
528 
528 


$# PATCH 534 FOR TSSMCP CONTAINS 3 CARDSe FIX "XT" & "CT" FOR oN & Me 


$3 THyS PATcH CORRECTS PROCEDURE “TIMERELAXFRe SO TuAT THE INPUT 

$3 COMMANDS #XTw AND "CT WORK CORRECTLY. PREVIOUS; Y IF THE CHANGES To 
$t THF TIME ESTIMATES WERE OF THE FORM **#N THEN AN TNV KBO RESULTED, 

$t THTS WAS BECAUSF AFTFR FINDING THE * » SI WAS NOT INCREMENTED TO SKIP 
$$ OVFR IT, 
$: THYS ALSO FIXES THE ¢CASF WHERE THE IOT 1S oF THE FORM “se cEMPTY>*, 


St PREVIOUSLY. 


ft NATAL Us 


$# PATCH 535 For TSSMCP.XV.3 CONTAINS 23 CARDS. 


THIS WoU).D ALSO HAVE GIVEN AN "INV KAD", 
PATCH 534 


IF Sc®" " THEN GO Lis ENDS 

TE Seema" THEN REGIN SteStais GO L5% ENDS 

IF Scmte" THEN BEGIN TALLYe1s GO EXITS ENDS | 
BUSI IIR IOI IOIGIOR IOI OIOISIOIGI IOI RR IOI ORIG IIR IORI SIO IOI IOI IO I IOI IONIC IEIOI I fei 


$t THtS PATCH FIXFS SOMe RAD COMING IN PROcFNURE CHANGFOPTION WHERE THF 
$1 SCAN MAY GO PAST THE END OF THE INPUT BUFFER, I7 1S A REeWRITE OF 
IT ALSo MAKES THE USE oF THE WoRD "USE" oR "UM 


$t THE SCAN PORTION, 


$t OPTIONAL IN THE SO Or RO WITH THE OPTION MNEMONI¢ CAS WITH THE OPTION 


$1 NUMBER). 
$t NATAL U, 
LO’ 
l.43 
L?s 
L3s 
$ voInT 


PATCH 535 


S1T+BUFF3 


IF Sce® * THEN REGIN SleSl¢13 Go TO Lis ENDs 
tr Sec<"0" THEN 
IF Sc#"e" THEN 
BEGIN TALLY«O} TeTALLY? DreLoc Ts 
BCIF SCa"® * THEN JUMP OUT FLSE 
IF Sce"e" THEN JUMP OUT FLSE 
1F Sc2"0" THEN JUMP OUT FLSF DsecHR)s 
RUFF EST} SpeOPTERI 
63D eLOC TS 
Ie 8 SC#DC THEN JUMP OUT TO Lo ELSE 
le Stee" THEN JUMP OUT To LO ELSE TALLY«#TALLY#1 9108645000 
GO To L33 
IF Sees” THEN GO TO LOZ 
END FLSE 


TeTALLYS 


TALL Y«48 ELSE | 

REGIN NI*LOC Ts STeSI+1; . 

IF Se<"0O" THEN REGIN SleStwis DSel OCTs FND 
FLSF RFGIN SleStels DSe2 OCTS FNDS 
TALLY«47} TCTALLYCTALLY 26393 

END? 


SleLOC Ts DreRS 


DSeWDS) 


EMPTY> 


08739000 
08739500 


08749500 


FIX PROCEDURE CHANGEOPTION 


08634000 
08635000 
08636000 
08637000 
08638000 
08639000 
08640000 
08641000 
08642000 
08643000 
08644000 


08646000 
08647000 
08648000 
08649000 
08650000 
08651000 
08652000 
08653000 
96654000 
08655000 


08656000 
Bo ak ae tO EE ROR RIOR IOI RIOR Rg SOR IR SFR eR OK 


$# PATCH 538 FOR TSSMCP.XV.3 CONTAINS 2 CARDS, FIX TIMING PROBLEM WITH 


$t THrS Paten cORReCTS a TiMtNg PRORLEM Wity a PROGRAMMATIC PURGE OF A 


PURGE 


>] 


VJouI I VI9VI 8 IJVTOSD 


we ] 


534 


534 
534 
534 
534 
534 
534 
534 
534 
534 
534 
534 
534 


535 


535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 


538 
536 


$: TAPE FILE. THE PURGE IS HANDLEN BY AN INDEPENDENT RUNNER WHICH HAS 
$1 TO WaIT UNTIL THE TAPE HAS REWOUND, IF A PROGRAM CLOSES FILE "A/B" 
$: WITH PURGF ANN THEN TRIES TO OPFN FILE "A/R%, IF THE PURGF HAS NOT 
$: OCCURREA, TT MAY TRY TO GRAR THAT UNTT (SFr FINDOUTPUT @ 37027000), 
$3: THe PRNTABLE STriLL CONTAINS THE POYNTER TO THE ToP 1/0 DESCRIPTOR, 
$1: THE SPACE For WHICH HAS ALREADY BEEN FoRGOTTENs S50 THAT IT MAY PICK 
$1 UP GARBAGEe THIS IS FIXEN BY SETTING THE MIX INnEX OF THE PROGRAM 
$: ASSIGNED TO THE UNIT To ZERO IN THE RDCTABLE BEFORE STARTING THE 
$1 TNNEPENDFNT RUNNER TO PURGE THE TAPE. 
$i NATAL U, PATCH 538 _ 
BEGIN ROCTABLF(U].6826]403 . 38788500 
FORKEPC .PURGELT) »Us"2012851) END FLSE Sr TNOTINUSECU,0)3 38789000 
BDI IORI RIOR IG IOI IRI ORIOR I IOIGIGIOROIOIOR ORR FOR UR OR ORR ORR OIOI IG aOR ORONO ai I Ce ke ok 


$# PATCH 539 FOR TSSMCP°XV.3 CONTAINS 2 CARDS: PURGE OF TAPE AFTER CLLP* 


$t THIS PATCH CORRFCTS THF CLLPx WHEN PRINTING FROM A BACKUP TAPE WITH A 
$1 W/RING. THF TAPF 1S NOW RFWOUND AND PURGFN CORRECTLY, PREVIOUSLY. 
$t THe PURGE DIN NOT TAKE PLACE. PRIOR TO THrS PATeHs PRNPBT/DISK 

$1 REWOUND THE TAPE AND STARTED AN INDEPENDENT RUNNER CPURGFEIT) TO DO 

$i: THe PURGE, TERMINALMESSAGEA. VIA UNHOOQUF FOUND THF TAPE IN USE BY 

$$ PRNPBT/N1SkK FROM RNCTARLE1).£8#62 AND SET THe UntT NOT READY {N 

$1 LARELTABLE (6@114). WHEN THE REWIND WAS CoMPLETree STATUS FINDS THE 
$1 TAPE NOT READY AND FORGETS THE PURGEs LEAVING PURGEIT UNLINKED IN 

$1 CORE WAITING ON AN 1/0 COMPLETE. CUNIT SAYS NO 1/0"S BUT 10QUE SHOWS 
$t 170"S FOR WHICH THE SPACE HAS NOT BEEN RETURNED): 


$8 NATAL U, Ee aee 539 
BEGIN ROCTABLECUNIT].(816]+03 12528400 
ENN 12528600 


BGR RIOR IOI ROTOR ROCIO RIOR OOO IOI I OI NOIOIOI TOR IIGIOR I OIG OI IHG IO g ae 


$# PATCH 549 For TSSmcP CONTAINS 1 CARDe FIX "IL" FOR "#NO FIL ON DISK" 


$1 THYS PATCH CORRFCTS THF RESULT OF AN "IL" INPUT MESSAGE IN REPLY TO 
S$! A w#N0 FrL ON DISK" CONDITION, PREVIOUSLY, TF AN "ILCDe" WAS INPUT, 
$1 A SYSTEM HANG RESULTED, THIS WAS BECAUSE THE TEST WAS For AN ACTUA), 
$t UNIT RATHER THAN ALL UNITS¢ 
St NATAL U, PATew 540 — 
$i MONTFIED TO USE MAGIe NUMBER 355 BECAUSF TSSmCP nOFS NOT HAVE 
$1 PSFUDOMAXT, OBSERVE ON LINE 00277000 OF TSSMCP THAT TINUC35] = DATA 
$: FOR THE LAST PSFUDO RFANER. AY ORe UCSe JaNe 179 1977 
TF (SHeT2¢ReEPLYCPIMIXI,CFFI) > 35 THEN & IL 06463380 
BB he ne i he Re ee i ee a he ie i ge te ea ad RO Oe AO 


$# PATCH 543 For TSSMCP.XVIe0 CONTAINS 13 CARDS. FIXES To NEW LIBMAIN 


$1 TH1S CORRECTS A NUMRER OF PRORLFMS IN THE NEW LIRMAIN/DISK, 
$3 1, 1e MORE TuAN ONE peXcrEPTION LYST APPEARS WrTHIN ONE CONTROL CARD, 


BoovudTovI700 99 70 


o 
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538 
538 
538 
538 
5368 
538 
538 
538 
536 
538 
538 
538 
536 


539 


539 
539 
539 
539 
539 
539 
539 
539 
539 
539 
539 
539 
539 
539 


540 


540 
540 
540 
540 
540 
540 
540 
540 
540 
540 


543 


543 
543 


a] 
$1 
$1 
$1 
$1 
$t 
$! 
$! 


THEN THE SPACE FOr ALL EXCEPT THE LAST 1S NOT FORGOTTEN, 
FIXED, AT 29570070 AND 205733506 
2. IF THe FXeEPTION LIST CONTAINS MORE THAN 13 FIle NAMFS aND THERE 
1S AN AS CLAUSE. THEN A CONTROL CARD FRROR MAy OCCUR FVFN THOUGH 
THERE REAIN.Y IS NaT OWE, THIS IS BECAUSE THE oRIGINAL FILE NAME 
HaS BEEN OVERWRITTEN BY THE EXCEPTION LISTe FIXED aT 20569930 ETC 
3. FIX TO USF DEFINES RATHER THAN CONSTANTS» 
NATAL U, PATCH 543 
IF Y GFQ COPYN AND T LE@ LOAD THEN 
IF T GFQ COPYN AND T LF@ LOAD THEN 
TIL C46tL J eHOLN eC CNerQuALys 
TF HOLN3 THEN PROGrPCNTI$e91 FLSE 
TF CN GFQ@ TDENT THEN PROGFCNTI#*ACCUMCO) FILSF GO POWTE? 
TILP4734 JeHOLD Ree CCNeSCANDBEQUAL D3 
IF HOLOD3 THEN PROGECNT4+1]3e°1 ELSE 
FORGETSPACECXLST)3 XLST#=03 
IF CCNe#eSCANISEQUAL THEN IF 11.04681] THEN 
ELSE IF CN GEQ IOFNT THEN IF Tiela6t1] THEN GO POWIE 
IF CCNeSCANI ®FQUAL THEN IF T1 THEN 
ELSE IF CN GEQ IMENT THEN IF Tt THEN GO POWIE 
IF XLST NEQ O THEN BEGIN FORGETSPACECXLST)3 XLST8#03 ENDS 


BRO RRR IO ROI OR OR RRR GIORGI ROR ROR RGIGIGOR IG IGOR OI III OR IGIOROIG Ik ko ak IGRI Oi ae 


PATCH 548 FOR TSSMCP.XVIe0 CONTAINS 1 CARD. WRONG FIB CHECK IN FINDO 


THrS PATCH PREVENTS FYNNOUTPUT FROM CHECKING ON a NON@FXISTENT FIB, 
TH1TS SHOWED Up BY USING! 
CC COPY =/® FROM A TO At END 

WHERE THE SOURCE TaPe HAD A WRITF RINGe Lr ®MAINsprsk READ THE 
NIRECTORY CORRECTLY aNn THEN TRren TO FIND THE OuTPUT TAPF. 
FINDOUTPUT THEN FOUNN THE TAPE OF CORRECT NAMEr IN USE BY 
LIRMAIN/DISKs WITH A WRITE@RING AND TRIED THE "FYB", 
PRNTABLELUI«£152151] WAS ZERO SO THAT MEME3145),C4191] WAS TESTED. 
(Mr 3) CONTAINS THE MeP VERSION NUMBER), THE CONTENTS OF THE MEMORY 
cEi.L TESTED COULD BF SUCH AS TO SATISFY THr TEST’ THUS» LIBMAIN/DISK 
THEN WROTE AN OUTPUT LABEL ON THE SOURCE TAPE ANN FINALLY WHEN TRYING 
TO DO THF NEXT READs DFCIDEN THE TAPE WaS NOT A LIBRARY TAPE. 
THYS WOULD ONLY OCCUR IF THE SOURCE TAPF HaD A NoN®ZERO PRN, 
BY RAY BARTHO» NATAL U, PATCH 5489 MARCH 29» 1976 

IF T3°C45815]#0 THEN & DONT USE NoNEXISTENT FIB 


ETT TE TTT TCT TTT LETT LTT TLE T TTT TTT TTT TTT TCT TCT TTT 


$# 


PATCH 549 FOR TSSMCP:XVI.0 CONTAINS 5 CARDS, AUTO "OU" FOR "NO SORT 


STRFAMCPIMIXsTeRSxRGsAeleSPACK(7T) 3 

BFGIN NSetrT @."3 SteLOC PimrX3 SSPOUT *,%2 NOT "#", XGRK"549 
REPLYCPIMIX], CCF] + 33 

Je ty 


& vVOrnT 18791701 


$1 
$! 


THYS PATCH PROVIDES aN AUTOMATICALLY ASSUMFD RESPONSE OF "OU" TO THF 
"NO SORT MEM* MESSAGE, IN ADDITIONe THE PREFIX oF THE MESSAGE 


20566807 
20566822 
20569930 
20569935 
20569940 
20569960 
20569965 
20570070 
20570130 
20570150 
20570190 
20570210 
20573350 


UTPUT 


37027500 


MEM" 


18790600 
18790700 
18791200 
18791300 
18791400 


3 


32o9ou7 O90 99 0 99 9 7909 


Qo 


g97977 000 


543 
4 
343 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
543 
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548 


548 
548 
548 
548 
548 
548 
548 
548 
548 
546 
546 
548 
546 
546 
548 
548 


549 


549 
549 
549 
549 
549 
549 
549 


$: HAS BEEN ALTERED TO *.* FROM "#", TO IDENTIFY THIS MESSAGE aS 

$3 “INFORMATION ONLY” INSTEAD OF A "REQUEST FOR OPERATOR INTERVENTION”, 
$3 GR KENNEDY 12FEB75, BROCK U, PATCH 549 

$! MODIFIED BY DRe UCSC, Tn DELETE FROM THE SnURCEs THE CODE THAT NEVER 
$: CAN BE EXECUTED AS A RESULT OF BROCK Us, PATCH Sda, JAN. 179 1977 

$1 SEF ALSO UCSe DCMCP PATCH 713% NATAL Us PATCH 7138 DREXEL U, PATCH 751 
BRO IUIOR OI IGIGI IOI ERROR RRO OIOIOI IOI; IIRC ORIG IOI RIOR gH IORI Og IR RIG IG I NOK te teak 


$# PATCH 550 FOR TSSMCP°XVI.0 CONTAINS 3 CARDS. RESTART LOG AFTER INTERRUPT 


$t 1F AN EXTERNAL INTERRUPT £46. TOBUSY» TOCOMPLETE, PRINTERFINISHs 

$1! TIMER OCCURS SIMULTANEOUSLY WITH A PROCESSOR DEPFNDENT INTERRUPT E,G, 

$1 COMMUNICATEs® THEN THE FXTERNAL INTERRUPT Wut, BE HANDLED FIRST AND 

$1 THF LOGGING STOPPED FOR THE JOB. IF THERE ARE Nn INDEPENDENT 

$s RUNNERS WAITING TO Be STARTED AND THERE 71S NOTHING IN THF BED» THE 

$! LOGGING WILL NOT BE RESTARTED FOR THE JOB WHEN ITS INTERRUPT IS 

$3 HANDLED, THIS WAS DrSCOVEREN WHEN USING THE TIMP C2) FUNCTION? 

$: BY RAY RARTHOs NATAL U, PATCH 550° APRIL 24° 1974 
$ SET OMIT © NOTCNEWLOGGING) 48100499 

STARTLOGCPIMYX 9) 48100500 

$ POP OMrT 48100501 
Be OIGI OO RIOR KOR RIOR IOI IOI IGRI RIGOR IOI RIOR KIRK IG ROI IOI OR OIGHON ai ge 


$# PATCH 5460 FOR TSSMCP CONTAINS 4 CARDS» SMALLER PaD ROW SIZES 

$: BROCK U, PATCH 5605 NATAL Use PATCH 732 

DFFING PAGFSY!ZE = 45083 % PACKET PAGE PBn S1Zr 02113094 
150# &% SEGMENTS PER ROW 08699150 
O50# © PHYSICAL RECORDS PER ROw 08699350 
1000#% PHYSICAL RECORDS PER FI1.E 08699500 


SOU IGRI IOI RIO RIOR ISIC II IG IOI IO ORI IOI IGS IIR i kk 


$# PATCH 691 FOR TSSMCP CONTAINS 2 CARDSe FIX PRD No DISK DS 00000100 
$1 CORRECT FLOSING atTION FOR PansPun FILES IN RACKeLOSE AFTER 00000200 
$1 A NO USFR DISK NS3 FrLe WOULN GFT STUCK IN USE, 00000300 
$1 DREXEL U, PATCH 604 B/10/75 00080800 
$: MODIFIED FOR TSSMCP RY DR» UCSC FEBs 4 1977 90000500 
$1 SFE aLSO OFFICIAL PATCH 155 TO ncMCP OR 148 TO TeSMCPe AND 00000600 
$t  onRexel u, PaTcu 669 00080700 

END) 38604400 
$ VoIDT 38621500 


SURO IOI RIGOR IOI IOI II IIE RIGS IOI OIOIOI I I IOIOIIOI GI I ISI IOIOK EaiGioi ioe 


$# PATCH 602 FOR TSSMCP CONTAINS 4 CARDSe BAD INCW 


9o 9g F739 9009000 9090 3 o 39 O79 939093 


go2o0—7 78 2 


S 


iw Bow Ro Re Bie be Keo Tipe | 


549 
549 
549 
549 
549 
549 
549 


550 


550 
550 
550 
550 
550 
550 
550 
550 
550 
550 
550 
550 


560 


560 
560 
560 
560 
560 
560 


601 


604 
604 
604 
601 
604 
604 
604 
601 
601 


602 


S$: THrS PaTecH WiLL "Sn" a JOR THAT GETS INTERRUPTED AND “aNaLyS1S® 

$1 SEEMS TO THINK TS INCW 1S IN LOW COREs LIKE ME0O4, 

$1 ITS HAPPENED A FEW TrMFSes KILLING MEMORY CFL). ZERO. 

$1 DREXEL U, PATCH 602 10/5/75 

$3 MONIFIED FOR TSSMCP ex TO NOTIFY US IF THIS CONDITION EVER ARISES AT 


$+ UCSCs BY DR UCSC FFB, 14+ 1977 
IF INCWeLCF1<@4777 THEN % SOMETHING VERY WRONG 14015200 
BEGIN VAREPIMIXe6).Cisijleis % Sp BIT 14015210 


BR eke III RIO RO IOI IORIGIGIIOROOR I IOR IOI OR IOI IOI (OR IOI ii ki ga RGR IGIGI ike oak 


FILEMESSC*"SFE TSS"0" PATCH 200090909 602)EKLUGE MSG82NS8S14019220 


ENn?s 


14015240 


S#PATCH NUMBER 603 FOR TSSMCP CONTAINS 19 CARDSse FIX COPY 11011072 
FORM = 77#,% SWrTCH NCPCCI*FORMM="SPECTAL™ 20240000 

LRANDOMs 20392890 

SWITCH DeLFORM» 20394000 
LRANDOMe ia 20394090 
LUNOsLATSKaLTaPreLPUNCHe LPRINT®LPAPER, 20394900 
TPNOe42$ 60 TO NSKCHFCKS & "DYSK™ MEANS DISk SFRrAL 20457000 
BEGIN TPNOe?¢s TF TYPESCOPYN THEN BEGIN 20461300 
TPNO*22: Go 1.COPY END E1.SE 20461310 

te ScaN#pAcK THEN 60 FRROR?} 20461320 

ENDS y 20461330 

IF TYPE SCOPYN THEN BEGIN TPNO*#223 GO LCnPY ENN ELSE 20461810 
RFGIN TPNO*4: IF TYPFECOPYN THEN REGIN 20470000 
TPNO*+453 60 1O LcOPY ENn ELSE 20470100 

TF ScaN#pack THEN GO FRROR} 20470110 

END? . 20470120 

IF TYPESCOPYN THEN BFGIN TPNO«e163 GO LCOPY ENn ELSE 20475100 
LRANDOM: TPNO*103 GO TO DSKCHECK3 20481900 
"FORM ") 77s. % SWITCH DCPee) 41485600 
*"RANHDOM *, 78 44485610 


$1 

$1 THIS PATCH CORRECTS THE INABILITY TO SPECIFY COPTES WITHQUT 

$1 ALSO SPECIFYING BACK UP DISK ON THE FILE CARDs ~ 

$1 MONIFIED 12/2/73 = SPECIFYING "DISK™ ON A FILE CaRD NOW MAKES 

$: IT A SERIAL FILE, EXs @ ALGOL FILE TAPFeasB DISK 

$3 MONIFIFN 12/21/75 = SPFeIFY "RANDOM" TO GET RANDOM DISK, 

$t MONIFIED 12/21/75 TO MAKE OTHER PATCHES FIT RETTER, 

$8 FROM DREXEL UNIVERSITY © JHH = 8/24/76 

$+ TH1TS PATCH IS AFFECTFD BY PATCH 724 

$8 Dota RoI III IIGIG RU RII IG IORI IIOIG IIR IOI OR IOI aOR OR OR HOR ioe 


$# PATCH 604 FOR TSSMCP CONTAINS 1 CARD. DISk ADORFSS ERROR 00000100 
$: THrS PATCH CORRFCTS FOR AN UNDETECTED DTSK ADDRESS ERROR AT H/Le 00000200 
$1 DRFXFL U. PATCH 604 3/20/76 00000300 

TF CRA*RL5 GFQ RAND THEN RLEN te 0 ELSE 40060060 
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602 
602 
602 
602 
602 
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603 
603 
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604 
604 
604 
604 


$# PATCH 639 FOR TSSMCP CONTAINS 2 CARDS. FOF PSEUDN@RDRS 00000100 
$§ THrS PATCH CORRECTS AN FARLY EOF ON PSEUDO@RDRS wHERE THE LAST CARD 00000200 
$1 IN A DECK cCUSUALLY An *"END™ CARD) WOULD NOT GET |. ISTED IN THE PACKET» 00000300 
$: MODIFIED 8/18/74 To aVOID A SUPERFLUOUS READ ON nISK SEG ZERO CAUSED 00000400 
$$ BY THE AROVE PATCH. 00000500 
$2 NReXel U. PATCH 639» ORTGINALLY 8/8/73 00000600 
Tr CATENS=*ePODUP S41) > CHE7)41) THEN 07397000 

1F 170 THEN % NEXT BUFF EXISTS 07401900 


BU ROO IG IORI SIR ORI IOIGI IOI IOI GIORGIO IG IOI OI IOIOIOR doi kok ik 99999999 


$# PATCH 643 FoR TSSMCP CONTAINS 12 CARDS, FIX PLACEFINDER 


IF CNTLieJAREPIMIX*#10]920 THEN GO SANNA: ® NO LINE DICT 04709900 
NISKWATTC@Te#30.NTIDS 04710000 
IF CAA*RCO], CF F1)9e0 OR S>pAri) OR a>1023 THEN 04711000 
NTL*JARPPIMIX9a)) NT2*AA+S NIV 303 04722000 
TF E¢NT3eNT2 Dtv NT1 # 10) > 29 THEN «0 TO SANDAS 04723000 
IF (NT @eJAREPiMIXsNT3]920 THEN GO TO SANDAS 04724000 
T*¢NT34NT2 MOD NT18 DISKWAITC?T» 3001)3 04725000 
IF CJearS MOD 301) < 0 THFN GO TO SANDaS 04726000 
AAeJ.f CEI} YF J.P FF] = 0 THEN J, LFF Je!13 04727000 
$ VolIpT 04730000 
IF W#CWH#S DIV 30) THEN DISKWAITCHTs 30 ¢JARLPIMIXe (NTI®AA+WI04731000 

DIV CNT2¢JARCPIMIXeA8I9+10)4NTI MOD NT2) DIV 1 92 04731100 


$t THTS PaTeH CORRFCTS « PRORLEM OF INCORRECT DISK ADNRESSFS 

$1 1N MeP PROCENURF PLAcFrINnER: 

St MONTFIEN 11/795/73 = STOP POSSIBLE CONTROL@=STATE 1.00P IF BINARY 
$1 SEARCH AnTTomS out, 

$: MONIFIEN 3/10/74 ™ CHECK THAT THE SEGMENT EXISTS IN THE PROGRAM? 
$1 ANn THF aNNReSS 1S LrQ 1023, te NOTe JUST GtVFE SFG ANN annR,. 

$1 ALSO, ELIMINATE USELFSS READ ON DISK SEG ZFRO IF NO LINE DICT, 
$t DREXEL U, PATCH 643 | 

ft MONIFIEND FOR TSSMCP RY ORe UCSC JANe 180 1977 

$1 SEF aLSO UCSe PATCH 515 . 

$1 SFr aLSO NREXEL Us PATCHES 209% 785 789» ANN BROCK Ue PaTCH 528 
BB IORI IR EGO OR ROK ROR IOROR RIOR ORO SOROIOII iO i OIOK KG ORR Rok ak sO ak kok 


$# PATCH 644 FOR TSSMCP CONTAINS 2 CARDS» <MIXsTI 

$3 FIX RUG 

$! OReXrL US PATCH 644 9/23/73 

$1 MODIFIED For TSSwCp BY ORe UCSC FEB, 109 1977 
T © COCLOCK#PCRTRYD DIV 6n5eC3Lti7] = 08533000 
IF TSO THEN T « 7 + #4000003 06533150 


Bek RIOR ERROR KORO ORI IORI RIOR OR OIG RRO RIOR Gk i KIOIO fia 
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$# PATCH 645 FOR TSSMCP CONTAINS 1 CARD, FIX DISKIn 00000100 
$: THrS PATCH INTEGFRIZES THE ARGUMENTS TO nrskr0O To INSURE 00000200 
$! THaT THe VALUFS ARE  NTFRPRETED CORRECTLY. BAD THINGS MIGHT 00060300 
$1 HAPPEN IF A REAL, CNORMALIZED) NUMBER IS PASSED Th DISKIO. 00000400 
$t NREXFL Us. PatcH 645 12/2/73 00000500 

cOREtecORes STZFtaSi7e3s NrSKsenrSkK3 & INTEGFRIZe 06004100 


BOC gO ORR ERROR ROI ORI OKOR GIO; ROR OR KOKORO OR kok dK gg ok kk kk ee 99999999 


$# PATCH 647 FOR TSSMCP CONTAINS 2 CARDS,» « FoR Spout 


$t THrS PATCH PREVENTS PROBLEMS WITH DATA PASSED TO SPOUT WITHOUT A 
$1 GROUP MARK C#). SYMpTOMS USUALLY INCLUDE A BOMBFD MEMORY LINKe 
$: A “eo 1S PLACED IN THE LAST CHARACTER OF THE MESSAGEs 
$8 DREXEL U, PATCH 647 2/2/74 
STREAMCX@¢CMEMESSAGE@1),0CFJ°1) & 7 CeTFI))3 02142100 
nS « LIT tems 02142110 
BB he he ae hee he ae ie he i he ge RRA RR RII RI ki ROOK OOO Kk ak 


$# PATCH 654 FOR TSSMCP CONTAINS 4 CARDSe FIX LOCNTRL 00000100 
$t TH1S PATCH VOTDS SOMe CODE FROM COM23 2/25/74 00000200 
$1 IF LOCNTRL WAS STARTED FROM A PSEUDO DECK AND DS ON A NO FILE 00000300 
$1 THF SYSTEM WOULD LOSF WHICH PSEUDO@RDR THE JOB HaD STARTED FROM 00000400 
$: WHEN LOCNTRL FNDED THE ACTIVITY COUNT FOR THF PSFUDO*RDR 00000500 
$: WOULN NOT BE COUNTED NOWN THUS LEAVING THE DFCK STUCK FOREVFR 00000600 
$1 COR UNTIL H/L WHICH FVFR COMFS FIRST) . 00000700 
$1 7/3/74 CORRECTS A PRORLFM WITH LOCNTRL FNNING Te THE CARD READER 00000800 
$3 GOFS NOT READY AFTER READING A CONTINUE CARD 00000900 
$t DREXEL U; PATCH 654 00001000 
IF FIRST AND CDONLY AND NOT CONTINUE THEN 07059110 

GO EXIT ELSE 07059112 

$ VOIDT 07071912 07071899 
$ VOINT 07072902 07072899 


SIRO IO ROIS OR RI OI Rick iio ie 99999999 


$# PATCH 675 FOR TSSMCP CONTAINS 5 CARDSe PRNPAT ES@ED 


$1 THrS Patten FrxeS THe Way TERMINATE HANDLES AN ESerpn PRNPRT/NTSK, 
$: THE CODE WAS ALL WROWG SINCE XV,o REWROTE pPRNPBT® 

$1 NOW THE UNITS ¢(PRINTFR»e PUNCHs TAPE) SHOULD BE CrEARED PROPERLY, 
$: DORFXEL U.,. PATCH 675 6/15/74 

$3 SFr NREXel U. PATCHES 7500 826 


BFGIN 02261250 
TF ¢LUN*L,£419539<16 THEN SLAPITOFFS 02261300 
LUNeL 6465234193 ¥ LPA, LPB, OR CPA 02261350 
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647 


654 


654 
654 
654 
654 
654 
654 
654 
654 
654 
654 
654 
654 
654 
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675 
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675 
675 
675 
675 
675 
675 


SLAPITOFFS 02261400 
$ VOInT 02261704 02261450 
Bk ROR RIO IRR GIO ORO GIO IOI IOIOIOI ORS IOIO) OIG OIOROI  RGIOIOIO IO; Gi i a i ak aio i ai te ate ak 


$# PATCH 688 FOR TSSMCP CONTAINS 2 CARDSe FALSE CONTROLCARD ERRORS 
— CReOMPILE*+0} % INITIALIZE 20584390 
COUNT T#O3 ¥ INITIALIZE 20590030 


St THrS PATCH WILL CORRECT A PROBLEM WITH TNCORRECT CONTROL CARD ERRORS 
$1 DREXFL Ul PATCH 688 4/27/75 

$$ MODIFIED FOR TSSMCP RY DR» UCSC FEBs 7» 1977 

BU ei i RR RK OR RRR aI RIG ROI IOIOR ORR IORI Ig gO ig Rak RIOTING Ii iG kk 


$# PATCH 697 For TSSMCP CONTAINS 2 CARDS» Io FRR STaTUS 


$t THrS PaTeH cORREeTS «4 PRORLEM WHERE STATUS COULD GFT AN UNFXP 10 FRR 
$i WHILE PLAYING WrTH A TAPE DR1VE’ 1T SHOULN RECOVER OK Now: 
$t DREXEL U, PATCH 697 1/25/76 
DO UNTIL CTLeWAITIOCAREA INX @34n00001298750U))#03 22112000 
TF T4.f43t2)40 THEN TlewarTlOC@4200000000»5eU)3 22112100 
BSR IOI IORI III ORR OR IORI IORI RO ORG RIG ROR GROIOROR ROK Gg kag AOR HOi ak iotok 


S#PATCH NUMRER 708 FOR TSSMCPeXIII CONTAINS 3 CARDS PRINT PRN WITH PG 
IF TEST THEN BEGIN STREAMCBeT,BUFF DS 08051000 
BFGIN NSe10 LIT"PGeFDePRNZ"3 STeLOC BS DS+5 DECS DSe? LITM)o™) 08051004 
END3 END % PRINT PRN WITH PLAIN PGmMT 08051005 


$! FROM DREXEL U, | 
$: SEF aLSO RROCK U, PATCH 543 FOR TSSMCP$ PATCH 708 RFQUIRFS LESS CONF 
SOR IIIS IOI I IGOR ROR II IO IOI OIG IOI IOI I IOIOIIOIOI GIGI III I I kok 


$# PATCH 715 FOR TSSMCP.XV.3 CONTAINS 1 CARDe MT In "ERRORS" TO "RETRIES" 


$1 CHANGE "FRRORS*" TO "RETRIES" IN MAG TAPF 10 MESSaGEs BECAUSF USERS 
$1 GET WORRTED BY 10 ERRORS. (CAS THEY RIGHTFULI.Y SHOULD, DReUCSC) 
$t NATAL Us PATCH 7153 SPELLING BY DRe UCSC 


C12,30¢18]e"RETRIES"*FPREENIOFPALENG1) 92 000)3 37285320 
BC k RII IORI GIOR IO ROR IGOR RRR IOI RII IOI IGOR IGOR Oi BIG OK AOIG IR NO a oe 


$# PATCH 717 FOR TSSMCP.XV,3 CONTAINS 13 CARDSe BACKUP TAPES NOT AUTOPRINT 


$1 TO MaKF PRINTFR RACKHP TAPES IGNORED BY THE AUTOPRINT MFCHANISM, 
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715 
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715 
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717 
717 


$1 MODIFIEM FOR MARK XV'2 RY RAY BARTHO AUG, 1» 1974 
$1 MONIFIEN FOR MARK XV.3 BY RAY BARTHO NOV. 4% 1974 
$1 MONASH PATCH 556% NATAL Us. PATCH 717 
LARFL FOUNN®FIREITUPSQUITS 
FNn ELSe % <0, PR MT 
BEGIN RRRMECHeTWOCUSABS(Q)) OR RRRMECHS 
LABELTABLErU) « 
_ PRTATINUCVI(693081B18O710114385)3 
MULTITABLEEV] « PRT3 
LARBELTABLFEV) « PRT&TINULUIL6S3081Ale 
@216904395)3 
GO FYRetTUPS 
FND 
$ VOTNT 08266504 
£ VOINT 38639104 ; 
1F J THEN SETNOTINUSE CULO) ELSE LABELTABLErU],ritSiei3 


$0 SORE ORORI RR ORIG III ISIGI I RIG RIOR IGOR dO III IGOR kok 


$#PATCH NUMBER 724 FOR TSSMCP CONTAINS 143 CARDS, FULL PAGE 


TF RneTARLEfy) OR MULTITABLECUIJ="FULLPGE* 


THEN TF 1OQUF(§1,02851] THEN 1OQUEFSI1,.0FF1+@40013 ZnBLecH 11 


FLSF rOQUErST.FFF)«@40092 & DBL SINeLE * SKtP TO CH 10 
FLSE % SKIP TO CHAN 4 ON FOP IF NOT 66 LYENES 
ROCTABLELV).€47317*1INRECFO)m"FULLPGE"S % LINES66 OPTION 


FORM = 768s & SWITCH DEOPCCI"FORM*@HSPECIAL® 
LINES66 = 77#, 2 66 LINES PER PAGE 
LLINES66» &% 

LLIN S665 


LLINES66!8 & 
FQNCO) «© "FULLPGE” 3 %SET UP MFID FoR FULL PaGE 

"FORM ", 76 » 

"LINrS66%, 77 * 


$$ REV 42/9/72 MARK X1V 

$t THrS PATCH Writ CAUSr THE CHANNEL 42 PUNCH ON THe VERTICAL 

$3 FORMAT TAPE To BE OVERLOOKED 

St THF PRINTER 1S CLEARFD RY DOING A SKIP OF A SINGLE OR DOUBLE 
$: SPACE OR 1S NOT CLEAREN AT ALL DEPENDING ON THE ORIGINAL 

$1 CONTROL INFORMATION 

$: THIS WAS TESTED ON MoD II! 0S WITH B9242"4 PRINTERS 

$3 THE DOCUMENTATION SAYS THIS SHOULD NOT WORK IoeEe 

$i YOU ARF SUPPOSED To CLEAR THE PRINTER WITH A SKIP TO CHANNEL 
$3 THyS Mrau?t Br Tur CASF WITH ATFEFERENT PRINTERS AND/OR 1705 

$t THyS VERSTON Writ. WRe ON ANY CARRIAGE TAPE ELIMINATING THE NEED 
$1 For SPECIAL PUNCHES an CHANNELS 10 & 11 


$t MOnte IFN Juby 1973 © MARK xv,1 

$3! MONTFIEN 02/40/74 = MARK XV,92 

$! MODIFIED 42/94/75 To MAKE OTHER PATCHES Work BETTER 

$1 FROM DREXEL UNIVERSITY ™ JHH * 5/21/76 : 

$t NONE OF THE aROVE STUFF 1S TRUE ANYMORE = ¢T WONT WORK WrTH R@3215 
$t THe PROBLEM +S THAT WHEN THE B*321 HITS CHANNEL ¢2 PUNCH TT KEEPS 
$$ THE END OF PAGE STATUS BIT ON UNTIL A SKIP To SOMETHING IS GIVEN 


08255800 
08259800 
08259810 
08259620 
08259830 
08259840 
08259850 
08259860 
08259870 
08259880 
08260899 
38639000 
38640000 


04391550 
04391560 
04394570 
04391580 
12860100 
20240000 
20240020 
20392880 
20394080 
20465050 
20465100 
41485600 
41485620 
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724 
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$t THrS PUTS MCP INTO A TIGHT LOOP, SO» Wr GO RACK TO USING A 

$1 SPFCTAL FORMAT TAPE wHICH HAS CHANNEL 14) PUNCHED A DOUBLF SPACE 

$t AFTER CHANNEL, 120 AND CHANNEL 40 PUNCHED A StNGLr SPACE AFTER 

$1 THIS PATCH AFFECTS PaTCH 603 

BB ok RIOR ROR IU RII III I CIIGR IGG IOIOIOIOIGI ORI ONOR IORI IOIOI IR SOI OI IOIOR RIOR Oi i teak 


$# PATCH NUMBER 725 FOR TSSMCP.XIITT CONTAINS S CARDS DONT ALLOW PRN=O 


DreDiwas DSeLIT "45 08029046 

TF NOT Taritt] THEN tf T#0 THEN 08033980 
TF Tirtt1 10 AND T#0 THEN BERIN 08033999 
STREAM(BUFF)$ DSe17 LIT "NOT PG*EDePRN#0)e"3 08033993 
LABE!TABLELU]+ @143 GO FXIT FND3 Te ABSCT)S 08033994 


$t 
$1 THIS PATCH WILL PROHTRIT THE OPERATOR FROM PURGING A TAPE THAT 

$1 HAS A PHYSICAL REEL NUMRFR OF ZFRO WITH THF PG MeSSAGE UNLESS 

$t HF FNTERS A NUMBER. SUCH AS "PGMTR®@=122". He MAY ENTER "PaMTc=o" 

$1 IF FOR SOME REASON A PRN IS NOT APPLICABLE 

$1: FROM DREXEL U, ; 

BRR RO RRR RI IOIOR EI ROR RII IRR IGIGTOR IIR ORO IOI GIORGIO IOI RR BO doko 


$# PATCH 7485 For TSSmCP CONTAINS 3 CARDS, pBT REFL NUMBERING 


$t THIS CORRECTS THF PROBLEM WHERE A JOB USING PBT USED MORF THAN ONE 
$t REFL BEFORE FNDING. A SUBSEQUENT JOB RFQUYRING PBT CONTINUED ON THE 
$t FINAL REEL OF THE ABOVE JOBe RUT WHEN A REFL CHANGE OCCURRED» THE 

St VALUF OF REEL FOR THF CURRENT JoB WAS PUT 1N THE LABEL OF THE NEW 

$: REFL, THIS MFANT THaT WHEN PRINTINGs THE REFL NUMBERS IN THE LABELS 
$1 WERE NOT CONSFCUTIVE THUS INTERFERING WITH AUTOMATIC REEL SWITCHING. 
$3 THe REEL NUMRFR OF TuE FIRST TAPE 1S NOW PLACED +N THE RNCTABLEs ANN 
$1 ASSIGNED To wEW JoBS UStnG THE SAME PBT FRoM THE RDOCTABLE,. THIS 

#: CONFLICTS WITH THE DaCUMENTATION IN THAT THE DEFAULT REEL. NUMBER For 
$3 Par’s NEF NOT NECESSARILY Bre ZFRO, 

$3} NATAL UL PaTen 745 


$! MODIFIED FOR TSSMCP RY DRe UCSC JAN, 179 L977 ; 
RDCTABLECUJ*PCOUPsLODI8REEL(14#3A310) 37046177 

RCOATELZ4 30897] ae VYCLELG124197)3 37046178 

ReeLeRnacTARLeruy.C14t10]3 & GeT ACTUAL Reel NUMBFR 38247100 


SION OE REE AERE ER EREOEREREAREEEORSEREEEORE DOE EERERN GE ERERSEREEEKRREERRE EE 


$# PATCH 749 FOR TSSMCP CONTAINS 1 CARD, MEMORY PARITY ERR CAUSES "SD* 


$1 THIS PATCH WILL CAUSF THE MCP To HOLD ON To A PSFUDO"DECK oF A JOB 
$1 WHICH HAS BEFN DS*ED DUF TO A MEMORY PARITY. AFTER ALLe THAT WASNT 
$t HIS FAULT, 

$1 MONIFIEND 6/18/74 ™ Sn BIT SET IN TERMINALMFSSAGA INSTEAD OF 

$1 IN OUTER BLOCK, 

$1 DRFXFL US PATCH 749 ¢BROCK U, PATCH 749 1S TWE UNMODIFIED VERSION) 
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IF N=32 THEN JARTPIMIX*#6].C1ttle1s % MEM PAR 
BC RRO RO IGIGIOI III IO ION RII IOI IOI GIGI iO a KORO R Hoi eke ak 


$# PATCH 753 For TSSMCP.XVe3 CONTAINS 2 CARDS. TIMFC"6) TO GET MIX INDE 


$t THyS ADNS A NEW TYME FUNCTION, TYMEC?6) Webi, RETURN THE MrX INDEX OF 
$: THF CALLING PROGRAM AS AN INTEGER, 
$: NATAL Us. PATCH 753 

Wnt T4ewEEKNAYs GO TO INITIATES 


tr 14 = (#6) THEN 14ePiMrxs 
BT ORR IIR IOI gO NORRIS ORCI OI OIOIOR OI RRO ROR OR RIOR OG kG gO tk 


$# PATCH 757 FOR TSSMCP.XV10e0 CONTAINS 12 CARDS. RFMOVE UNLOAD FILES aT 


$1 THrS PATCH CAUSFS THe FILES SPECIFIED TO Br UNLOaDFD TO RE REMOVED 
$: ONLY AFTER THEY HAVE ALL BEEN DUMPED, aLSo IF A DISK PARITY OCCURS 
$1 WHILE DUMPING THEN THAT FILE WILL NOT Be REMOVED! 
$3 NATAL U, PATCH 757 
MFFAINFO+J).£6884)28203 % DONT REMOVE IF UNI,OAD 
PeMrFAs{JeMrFA})3 % SAVE NAME FOR UNLOAD 
NTitePs MEFATSMeNT1S MPFASi]8=PcXCH)3 % REPLACE NAMES 
$ VoIDT 28765801 
TMP18FASZ DIV 2° 13 
FOR J:"80 STFP 1 UNTIL. TMP DO 
TF CNAPSMCRAINFO+J9,0CFI218 THEN ¥ FROM n1SK 
te UNLOAD THEN . 
BEGIN MFTDSeMrFAgJxo)F FIOtemMrrAsiesxar) 
PCDIRECTORYSEARCHC#MFID&103847¢1)9F 1097) eDEL)S 
IF mnSFn THEN GO TO INITIATES 
FNDS 
SB 8 oe he ee He he he ate i he ee ee ie OR Rk ORO NOK Sk Ok 


$# PATCH 764 FOR TSSMCP CONTAINS 3 CARDSe TAPES IN USE AFTER FM OR IL 


$3 THrS PATCH PREVENTS TAPF UNITS FROM BEING MARKED AS IN USF, THIS 
$1 OCCURS AFTER AN "{L" TO A TAPE UNIT IN RESPONSE TO A "#NO FIL ON 
$t OYSK" OR AN “*FM* TO a TAPE UNIT CONTAINING A TAPE WITH NO WRITE RING 
$2 IN RESPONSE TO A “#FmM ROD”, THE TAPE WILL REMAIN IN USE UNTIL A H/L 
$! OR THE UNIT 18 CLEARFD BY A *CL®, 
$3 HERIOTeWATT U, PATCH 764 . 
$% MODIFIED FoR TSSMCP RY DRe UCSC FEB, 39 1977 

END ELSF LABELTABLELT2]28=CaPCOUP))5 

IF PRNTaRLELUI],£1:1] THEN ELSE 

ReGIN LARELTARLECUII m= CePCDUP)I3G0 TO SOMEWHERE SENDS 

BS te he he he a ie ee teh RR IRI gk ROE ORG a tok 
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$# PATCH 791 FOR TSSMCP CONTAINS 4 CARDSe TYPE PBCOUNT AT HALT*LOAD 


$1 PATCH TO TELL THE OPFRATOR HOW MANY BACK*UP FILES THERE ARE ON DISKe 
$1 REGARDLESS oF THE SETTING OF "AUTOPRNT®, 


00000200 
00060300 


$t THE FIRST & THIRD CARDS REMOVE THE DECLARATION FaR THE UNUSED LOCAL "L" 
$: ANN VOTNS SOME UNUSEn CODE REFERENCING "L" TQ SPOUT THE "PRCOUNT™ MFSSAGE, 


$: BY NILS OTTEs UNIVERSITY OF NATALe SEPTee 1976 

$3 HERIOT®WATT U, PATCH 791 

$! MONIFIED FOR TSSMCP RY DRe UCSC FEBs 8 1977 

REAL NEXTLINKe ADs Xe ke SEVEN7Ts FORTYe EUSUs 
If PBCOUNT > © THEN % TELL OPERATOR 
ENDS SPOUTEX)} 

$ VOInT 


$I IRR TOR IORI OR RO IOI IO IOI OIOIOR IG AOR I ORR gO IOI IR IGE IR NOR Kok aio 


$# PATCH B8O1 FOR TSSMCP CONTAINS 39 CARDS» MULTI KFrYIN MESSAGES 


Real BUFFs KTR» TYPF, MIXe As To Je Ke To 
LAREL RESTART? 
RESTART! 
TYPE # KFEYINSCANCKTRMIX)3 
IF CPROCEN*TYPE,£1953)"1 AND CCr#TYPE,CCFI#B8 OR TeVCC 
‘ OR 1233 OR 1234) OR ¢PROCED=0 AND J") THEN Et.SE 8 SSsCCrpOCeFEs AX 
EGIN 
STREAMCKTReI3)3 
BFGIN S{f#KTR} 
BCAOCIF Sca*"" THEN 
REGIN Le SYeStety, 
63¢SreSyets Tr ScE""™ THEN JUMP OUTS 
: IF Sc#e" THeN JUMP OUT 3 TO YFCHD3 
SreSt4i3 
IF Sce**" THEN GO TO 13 
EnD3 
IF Sc=zte" THEN JUMP OUT 2 TO YECH} 
IF Sees" THEN 
REarN 
TeSts TALLY 
Diels; MSeLIT 3 
Xs SleSr+i; IF SC#%s" THEN GO To Xs IeSIy3 
JUMP OUT 2 TO YFCH! 
FNn$ Strestst))3 
YECH! KTReTALLYS 
ENN STREAMS 
TeP)} IF P THEN “! 
STREAMC1s TeTeGETSPACE(622000343)3 
BEGIN 
Stel} 


00000600 
00000700 


40004500 
40320100 
40320600 
40338000 


16951600 
16951950 
16954450 
16954502 
16954504 
16954506 
16954508 
16954510 
16954512 
16954514 
16954516 
16954518 
16954520 
16954529 
16954594 
16954526 
16954528 
16954530 
16954532 
16954534 
16954536 
16954538 
16954540 
169545492 
16954544 
16954546 
16954548 
16954550 
169545592 
16954554 


BC6OCIF Sce™e" THEN JUMP OUT 2 TO L FLSE DS*CHR))S LiOSeLIT"e"3 16954556 


ENn STREAMS 
FNn CHECK FOR KFYIN RECYCLES 
TF PROCFne7 THEN GO TO TALERR? 
IF T>0 THEN & ANOTHER MFSSAGE 
BEGIN 

BUFFSeTs T#03 


16954558 
16954560 
16954600 
16969710 
16969720 
16969730 
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GO RESTART? 

ENDS | 
$t DREXEL U, PATCH 801 9/93/73 - 
$1 THIS PaTcH WILL ALLOW MORE THAN ONE COMMANN IN EaCH KEYBoaRN MESSAGE 
$: SFPARATFEN RY SFMICOLONSe aS SUCH! 
$i MXsTSsealLsec REMOVE Asp 
$! NOTE! NO KEYTN COMMANDS MAY BE CONTINUED AFTER A CONTROL CARD 1S 
$t FOUND, 
£1 MODIFIEN 11/10/73 = CHAINED MESSAGES IGNORFD FOR FE® 0Ce AXe 
$t MONIFIEN 9/8/74 
$t THrS PATCH INHIBITS THE RUNNING OF KEYIN PROCEDURE "KEYINO® TF THE RE 
$: IS GETTING FULL, ’ 
$1 IF THE OPERATOR COR a REMOTE USER) KEYS IN A MESSAGE CAUSING 
$s INDEPENDENT RUNNER KFYIN2 TO RUN» AND THE RED IS WITHIN 4 ENTRIES OF 


16969740 
16969750 


D 


$$ FULL» A "WAITeee CKFYIN MESSAGE)” WILL BF SPOUTED. CNOT NEFDED IN TSSMCP) 


$t MONTFEFIEN 10/5/75 = Frx PROBLEM WHERE IF INPUT MESSAGE 18 LONGER THAN 
$3 480 CHARACTERS» A « WOULD BE PUT IN THE FIRST CHARACTER OF THE 

$t NEXT MEMORY LINKe LEADING TO GRAVE PROBLEMS. 

$i ALSO» SUCCESSIVE SEMICOLONS ARE IGNORED, 

$3? MONTFIED FOR TSSMCP RY DR» UCSC FEB, 7» 1977 

BU ORI IRI RIOR ROR RIOR IGRI OICIOIOIOR IOI IOI ORI OROIIR OR RIOR IG RR i ROI ROIs i aR aka ae ak 


$# PATCH 815 FOR TSSMCP CONTAINS 17 CARDS. Cl.EAR In USE FILE 


$1 DREXFL U, PatcH 815 2/10/74 a 
$t THrS PaTeu Wrbb eNaRLe THe OPERATOR TO elLeaR AN yN*USF Feber BY 
St DOING A #Q RESET FILE A/BY, fT SHOULD BE USED CAUTIOUSLY SINCE 
$1 DIRE CONSEQUENCES COULD RESULT FROM "CLOSING" A TRULY "IN®USE" 
$: FILE. IT IS USEFUL FOR THOSF STUCK IN USE PRD FILES AND SUCH, 
$t MOMTFIEN 10/27/75 = REPEAT MCP Fre tN USE MESSARE ABOUT EVERY 2 MIN, 
$t MONIFIEN FOR MARK XVy BY DRe UCSC FEB. 1¢* 1977 
$$ SEE ALSO UCSC PATCH «619 
WHILE NOT TOG nO 
COMPLEXSLFEPCCCLOCK AND @17777)20 OR TOG)}3 
SLEFEPCECLOCKIsNOT CLOCK): 
BOOLEAN FT@N3 NEFINE FHOFHLIEMETHPHLI#d = RESET FILE A/B 
Se UTE CLEARTHEFILEs & CLEAR AN YNWUSE FrLe 
EGIN 
FRHE49,001106)+03 ® EXCLUSIVE 
FHE4],(16820]«03 % OPEN fOUNT 2 
FHF9TLF019287¢03 £ TOGS & OPEN COUNT 1 
DISKWATTCT. rCF1030,T.FFFI)S ZFX eT 
FILEHOLOCCMMEC 2] *CMME 31909 T20)3 % WAKE Up WATTING PROCESSES 
LBMESSCCMME2 J eCMME 3] e112 26209 SPOUTUNIT #143 
ENN cCLEARTHFFILE? 
rF CN#acceSSn THEN . 
1F NOT ¢FTeFXTOGerCNeFTLEV)) THEN GO To CCrRRS 
$ VoIDT 
END ELSE IF FY THEN CLEARTHEFILF ELSF BEGIN 


SPOR III IO IGOR IOR RIOR OIIOIOIOIOI IO OOOO IGG IE RIG IOIIIOI IR RR IIR KOK sOIGiOiiok 


S#PATCH NUMBER 846 FOR TSSMCP CONTAINS 7 CARDSe OUmMMY FILE 


18031400 
18032000 
18032010 
20704100 
20704200 
20704210 
20704220 
20704230 
20704240 
20704250 
207040260 
20704270 
20704280 
20714000 
20744500 
20768000 
20769000 


i=) gu090e e290 9 9T9N90 9990 C0079 73937979R5 


> Boe Bee Ew be Ew Be Bo Re hw Re Ie Baw Re Ee Be Se Be Be Boe Be we Bee Be Be Be] 


804 
804 
804 
BOL 
801 
B04 
804 
804 
804 
804 
804 
801 
801 
BO! 
B01 
804 
804 
804 
801 
804 
801 


815 


B15 
815 
815 
B15 
815 
815 
815 
815 
815 
B15 
815 
B15 
815 
B15 
B15 
815 
815 
B15 
B15 
815 
B15 
815 
845 
815 
815 
B15 


846 


tr 10N,f3t5)#30 THEN GO RETURN: & SPO 
FORM = 75#,% SWITCH DePCoIMFORMM="SPECTAL™ 
LDUMMY >» 
LDUMMY » 
LOUMMYs TPNO*11s 8 * FORM SPO" = DUMMY FILE 
"Ee ORM ", 75 5» % SWITCH ncPec) 


"DUMMY My 76 » 


$: THYS IS THE mCP PORTION OF THE DUMMY FILE PATCH. IT ALSO REQUIRES A 
$1 PATCH TO THF INTRINSICSe IT PROVIDES THE WORD "MUMMY" AS A UNIT 

$1 TYPF. OuTPUT TO "nUMMY" WHLL CREATE A "SPrcrAl cORM SPO FrLr™s 

$t WHICH THE INTRINSICS Writ, IGNORE. 

$t FRoM DREXEL U,. PATCH 846 JHH aT UcsC¢ 


SETI TET TET TTT TTT TTT T TTT TTT ITT TTT LT TTI TLIT TTT LIT LIL rrr eee: 


S#PATCH 899 FoR TSSMCP CONTAINS 173 CARDS = DATAOZ20/EBCDIC 


$taUG 1975 weRPOTPWATT UNIVERSITY * LOCAL ONLY* 
$tAND PFRFORMS EBCDIC Ton BCL CONVERSION 
StIMPLEMENTS ODATA029 fraARD 


SIWAS PATCHES 9007902 IN MARK XV,1, «e* NB SFQUENCr NUMBERS CHANGED «axe 


$1 

PROCFNURE FRTABLFS 

BFatN tABFL L} 
PCOeXTTs .t,2DEI. 93 

Lens 


04105998 
20240000 
20392870 
20394070 
20451900 
41485600 
41485630 


07003270 
07003280 
07003290 
07003300 


DoF 2PM oML IPAM MOTS PM M/P2IPM ye MOLK OMe MPT IM MOOD PM AMID POMs NRCH OM eM AP2IN 07003310 


MAOZIM MIPIM MODODMENIMDDM ES NMIIDIN NH ODDON, 
Salk dy Wy Aa A dy i Ae ill AM? Ae Dy ll lds 2s Oe id 2 Oe Geeeta ee ante? 1992 s"97990%, 
M2999" 2,92999", HOD09OM, "2922", WO229"  NO200N 
MBHSD%MIDDDM MY KOM ENDODOM,MOSIOM, "9999", dl ie dy Aa ae dh i ail idl * DP i Da Dal De Dl) 
sll hy Dal BA By Be al iy De i Wy 0 Dil 2 de Dl 2 0 2s a Oe 2 
@07770675200537041328067146616906517647 30 
047579656, O45554453, 99797. 97799"» B27742620, 025352436, 

SS £09799, 97999, NIDDOM,MDIDOM NID90N, 

ZAMARKADDRESSES ; | 

MO22IM M229 DH ga MADIDM MOD DONM MOZD2DM NIDDM, HODDDH ys MOQDDMSNDDGZONENDODDM, 
als St Bt dal Saale Be Je dy all Te 2 a a de oe dal he 2 a ale A a er - 

Oe Oe OaOe De De Oe Oe Oe Oe Oe Oe Oep Oe 0n0e 2 SPacr FOR ADMRESSES 

0,0,050,0,0,03 

ENDS 

REAL, PROCEDuURE SETUPEBTABLES 

REGIN RFAL anRs LAREL EXITS 
OFF INE STORFANNRESS# 

XteSrs SpewLOc Xs SpteSea5S3 
DSta3 CHRS DTteD145 #3 

EBTABLE}3 
PCEME CADRE SaPCeFRTABLES INX NOT Lod] eITOR)3 
SETUPFATARLE Ie ANRIZanR, rer ls33 
1F MrAnRs84) 2 0 TyeN 

STREAM Xiao, TABLE teADR, QMARKTABLEADDRESS$ sADR+32 eL CATIONS? sADR440)3 
BEGIN 
DIsSTaARBLEs SItsTARLEs slyeSi+8y 


07003312 
07003320 
07003322 
07063330 
07003332 
07003340 
07003342 
07003344 
07003350 
07003352 
07003354 
07003360 
07003370 
07003380 
07003400 
07003410 
07003412 
07003414 
07003416 
07003420 
07003430 
07003440 
07003450 
07003462 
07003464 
07003466 


> Btw Bie eo ie Bw Ewe Bw he Bee Bie Ewe iw Be |) 


go 


846 
B46 
846 
846 
846 
846 
846 
846 
846 
846 
B46 
846 
846 
846 


890 


890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 


2¢40CS12s5 7443 NSte4 CHRIS 
ZF rRST FILL ALL OF ANDRESSES WITH ADDRESS oF 92S 
ST t#QMARKTABLEADDRESS3} 
XsaSly 
Sts*Loc Xs Ste*S1+53 BpOINT SI AT ADDRESS OF QMARKS 
DIt=LOCATIONSs 
DSt#3 CHR} 
STteLOCATIONS3 
DS#a63 WDS3 
ZNOW SET ADDRESSES FOR VALID CHARS INTO EBCDIC TaBLe 
STtsTaBLe} 
OrteLOCATTONS3 
3¢STOREADDRESS! STORE ADDRESSES FOR LPROs1,? 
SCHRRESPONDING To BLANK®9 HOLE*8 HOLE 
StsmX; 
StemS7+633 STeeSt+id$ *XSKIP 8 WORDS DOWN TABLE 
O1s=01+83 SLPs3 1S INVALID 
STOREADDRESS?3 ELPFRAe segs 7 HOLE 
Nrranr+B3 ZLPe5 1S rNVALIN 
SrteXs 
SttaSres3 BSK1P 1 CHAR NOWN TABLE 
STOREADDRESS! ¥LP=6".°"788 HOLES TOGETHER 
DrseD1 +83 
STs:=X}3 
Sis#Sr4i3 -. 
STOREADNRESSS %LP=6....6 HOLE 
Dye@*aD1 +83 
Syeaxs 
StseSi+is . 
STORE ANDNRESS!) BLPH1N ees 628 HOLES TOGFTHFR 
Drsanre4O3 ¥Mrss 5 WORMS). ,LPeit, 1251391445 
Sytaxs 
SttaSreq3 : 
STOREADDRESSS ELPt7+beeee 5S HOLE 
DIesD]+aA3 
S1sXy 
SIseSrots 5 
STORFADNRFSS3 ZLP=18,, 
2CD1t2D1459)3 ¥MISS 43 
S1ssXs 
STssSt413 i 
STORFANNRFESS} ZLP&39,.008 4 HOLE 
Nr te1483 
SyteX3 
StsxSpeq3 . : 
STOREADDRESS3 BLPBZheeeeee 48B HOLES TOGETHFR 
ENns 
ENDS 


*. 588 HOLFS TOGFTHER 
WORDS, ...LPR19"31 


07003468 
0700348 
07003484 
07003486 
07003488 
07003490 
070034992 
07003494 
07003496 
07003498 
07003500 
07003509 
07003504 
07003506 
07003508 
07003510 
070035192 
07003514 
07003516 
07003518 
07003520 
07003592 
07003524 
07003526 
07003528 
070603530 
07003532 
07003534 
07003536 
07003538 
07003540 
07003549 
07003544 
07003546 
07003548 
07003550 
07003552 
07003554 
07003556 
07003558 
07003560 
07003562 
07003564 
07003566 
07003568 
07003570 
07003580 
07003590 


ZEIGE UGE IU IOIIOI I IIUIUIOIIIGIOI IG IS IOSIOIK E ioloes iaok dict ioc 07003600 


STREAM PROCFOURF FRCNICCONVERTCINTOs TABLE» POINTFRS)3 


VALUE INTOsTABLEsPOINTERSS 


07083610 
07003618 


oo UE UE OO IG ISO IDI IO IOIGI IOI IG IG IOIO II OII A I oii ik iaiiiei ik 07003620 


BratN 
LOCAL Hpol,PeSRCEsDESTeHpPTRetPPTR3 
ZPHINT HPPTR gk LPPTR To LAST CHAR OF HPeLP 
St#e#Loc HPs 
SrtieS1473 


07003630 
07003640 
07003650 
07003660 
07003670 


890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 


HPpTREeSly ZHIGH PART 
SleFLoc LPy 
SrteSre73 
LPPTReaSt3 ZL.OW PART 
SrteInTos SyeeSy483 
DIteInTos 
ZSTART CHARACTER TRANSLATE LOOP 
2¢40¢ 


DESTteDr3 
BTRANSFER LOW & HIGH PARTS 
DIs#HpPTRS 
DSt®1 CHR 
NT#sLPPrRys 
DStx1 CuRs 
SRCEtsS73 ZSTORE S1 FOR NEXT PASS THRU L.OoP 
ZNQOW FINN THE POINTER INTO TARLE APPROPRIATE TO 1.P 
SIISPOINTFRS? 
LPeSrisSteS)) 


SyteSc3 ZSy woW PornTS INTO TABLE © POTNT DEPENDANT ON 1.P 
Ol:3DFST3 

S1:3ST+HP3 ZSKIP SI THROUGH TARLE HP CHARS 

DStacHRy 


STt®SRCE IDS 
Ny2eTaARLE? npeenre33 
END CONVERTS 
BOOLEAN EBCNICS REAL EFRTARBLEADR! 
IF ERCDIC THEN 
BEGIN 
EBCOICt=FALSE}S 
MEcePC,EBTABLE) INX NOT 1) J ef284]2203 


POINT TO QMRK 


NDS 
STREAMCXt@ "PACKETS" FY s="CONTINU* e782" END, we 
ERIeE*HNATANZ9"s INBUFF D2: 
INBUFF SSSI} 
FLSE BEGIN SItSINBUFFsDrssbLoc Ys 
SI tarNRUrFs . 
IF 3 Seenc TwEN TALLY!#s7 
ELSE BrFGIN 
DrtsL0C EBSD teDl443 
SIteINBUFFS 
lf 6 SCaDC THEN 
$VoID 
TALLY #343 
sVaIN 07036351 
. ENN FND FNDS 
1F PryPr = 4 THEN 
BFGIN PTYPFtn0? FRCODIC Ie TRUE? 
EBTABLEADRItwSETUPEBTABLE! 
FND3} 
ELSE BEGIN WHILE CQO8EWAITIOC@QQQ0000004INBUF FS 
FRCDICx@400000001 aFIRSTx44 
IF ERCOIC THEN EBCDICCONVERTCINBUFF » 
FBTABLEADReFBTABLFADR*+40) ELSE 
STREAMCOMK: m123BCLee1eEBCDI ee INBUFF 93 
REGIN 
STItINBUFFS 


BCL ¢rF SCe*Hw THEN JUMP OUT TO L193 


07003680 
07003690 
07003700 
07003710 
07003720 
07003730 
07003740 
07003750 
07003760 
07003770 
07003780 
07003790 
07003800 
07003810 
07003890 
07003830 
07003840 
07003860 
07003870 
07003880 
07003890 
07003900 
07003910 
07003920 
07003950 
07009200 
07031200 
07031300 
07031400 
07031500 
07031600 
07032000 
07032100 
07034500 
07036220 
07036250 
07036260 
07036270 
07036280 
07036290 
07036300 
07036310 
07036320 
07036330 
07036390 
07039500 
07039600 
07039700 
07039800 
07059000 
07059010 
07060100 
07060200 
07066100 
07066200 
07066300 
07066350 


890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 


IF SC#@14 THEN 07066400 

Lit BEGIN SIteLOC QMKsSresSre73 07066500 

DSest CHR} 07066550 

TALLYtet) 07066600 

StteINBUFFs 07066610 

PC36CTF SCav>" THEN _ 07066620 

BEGIN INBUFF3aSIs OL 7NBUFF3 07066630 

nSeslyT we" 07066635 

FNn} 07066640 

IF Sce">" THEN 07066650 

BEGIN INBUFF&e#St3 DIterNBUFF3 07066660 

DSte LIT wee 07066665 

ENDS SfewmSloq3)9 07066670 

END} 07066700 

QMK t=zTALLY3 07066800 

ENDS 07066850 

QteP OR Q3 07066900 

$ VOTDT 07086000 
INBUFF ¢# GETSPACE (212001) + 23 07101000 
STRFAMCCARDLOC)3 20374401 
BEGIN StecaRnloc3 20374402 
2crxecrr SCa">" THEN ; 20374403 

BEGIN CARDLOCeSISDI+CARDI.OC#DS. LIT t=” ENDS 20374404 

IF Scs*2" THEN 20374405 

BEGIN CARDLOCeSISDI*CARDILOCSDS+ LIT """ ENDS 20374406 
Sl+S14#139) 20374407 

FNN$ 20374408 

CTF KOUNT = "=e" THEN FQUAL FLSF % THYS IS AS IN SYMBOL 20380000 
MDATAN29"» 41 6 41483010 


$# Parcu 891 FOR TSSMcP*xvr1.0 CONTAINS 8 CARNS. CORRECT 890 ¢NATA029) 


$: CORRECTS A MISPUNCH 1N PATCH 890 (900) WHERE EBTABLE WAS SET Up WRONGLY 


$3 
' 07003250 
LEMKHERERREAHERERUAR AAR ALAA AERA ALARA RAE ALEK E RAR EATER ATE EEHEELEL 44407003251 
. 07003252 
MDODDMEMPIDDOM S MODDOM AS MINDONNDIDOM, MADDON, 07003344 
07003390 
SHRERREHALERHAERRREA REAR EATER REAR AAAS LAMAR EEA LA AE ORE RE EEE ET EREE4E07003391 
’ 07003399 
INBUFF « GETSPACE( 949001 ) + 93 07101000 

S#PATcCH 892 FOR TSSMCP CONTAINS 2 CARDS. cORRFeT 890,891 
®07770675200577041 390067106616 98651 764738 07003340 
INRUFF # GFTSPACEC21®10ORUFFERAREAVel) + 23 07101000 


$t THIS PaTcH MONIFIFS THF NATAO29 FEATURE (PATCH 890) SO THAT 
$tStNeabe QUOTE COMING TN +S CHANGEN TO NOURLF QUOTE, FOR THr FORTRAN caTS 
$1 BY JHHe UCSC, 14 AUG ?F7 


So 


oOrnroao 


890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 


894 


891 
891 
891 
891 
891 
B94 
895 
891 
891 
894 
B94 


892 0000000/CARN 


8992 
892 
892 
899 
a9o 


$t MONIFIEN 19 AUG 77 To USE ARFA TYPING INTRODUCED IN PATCH 167 


S#PATCH 892 FOR TSSMCP CONTAINS 2 CARDS, CORRECT 890,891 


$# PATCH 901 FOR TSSMCP CONTAINS 1 CARDe TERMINAL LOG@IN MESSAGE #EFFEFER EASE AED 


$: CHANGE TurS DATE FACG TrME ANY OTHER PATCHES ARE CHANGED: eeeeces LOOK cecece 
$t BY Type ucsc MODIFTED BY Dre UCSC 


NS*35LIT@eatiCSC B5700 TSSMCP OF 24 AUG 77e “3 03595560 
$B OR III IORI IG ROR ISOC OIOIOIGISIOIOIGIOIOIO; IR IOIOIG SOI IOIGIOIGIOIG II REI IGIOI i teoage ak 


$# PATCH NUMRER 902 FOR TSSMCP CONTAINS 3 CARDSe aAUTORN OPTION 


BUTORR = OPTION, C1781) #» 00416640 
AUTO", WRNOOM, Bi7% 41434600 
1F AUTORN THEN BEGIN RUNUMBFRIw4s STARTADECK¢O)$ ENDS 44424100 


$1 

$8 3 CARDS MELETE THE RWNALL OPTION USFD WITH SHARED?SK ONLY AND 
$: REPLACE FT WITH THE NEW AUTORN OPTION WHICH WILL AUTOMATICALLY 
$3 START PSFUDO READERS WHEN THE SYSTEM 1S STARTED UP 

$t BY JHH MARK XVI,0 

$3 SEF ALSO Brock U, PATCH 571 FOR TSSMCP 


WETTTT TTI TTT TTT LITT TTT TLL ITLL TTL LILLTTTT iLL 


S#PATCH NUMBER 903 FOR TSSMCP CONTAINS 2 CARDS 


TF LOw23 THEN RFGIN LOSs273 HIte28; FND FLSE 37195375 
TF LOw27 THEN RFGIN LObSOS H1te153 END EI.SF GO TO DUNS 37195400 
$1 THrS PERMITS PROC, FrNDINPUT TO FIND UNTT PRA, OBSERVE THAT PRA 
$1 1S EXPECTED Tn HAVE REEI NUMBER 4 MOUNTED» UNLESS SOME OTHER REEL 
$! NUMBER IS DESIGNATED EXPLICITLY, JHHRDR AUGe ohe 1976 
ETT TTC TTT TTT CTT CECT TTT TTT TTL TTT TTT CTCL TCT TT LT TTT 


$# PATCH 905 For TSSMCP.XVIe0 CONTAINS 1 CARD, DELFTE UNUSED LABEL DECLARATION 
$: AY DRe UCSCe OCT. 42 1976 


LABFL PX3 38660000 
ST III IOI IIR IOI OR BOIS RSI ISI IOI IOI RR IOI ROR IOSOR gag IOI I HOI OOK I NOK OK Oe ek 


$# PATCH NUMBER 917 FOR TSSMCP4XVI.00 CONTAINS O7 CARDSe "PRT ON MTX RW/L CPRN®, 


o 


JOOS 


i | 


3dBu uoIT Ss o pe Ewe Des Bee Rew Troe Bow Bee Ker Bier 


i=] 


pe Bes Eve | 


892 


899 


905 


917 


PATCHFS/TSSMCP 


DISCARDED ### 


eo 


STREAMCMTX*TINUCUNITIsPRN©PRNTARLECUNITI.£ 30818) e¥517"GRK 12530010 
NeT+SPace¢i0))3 Z517"GRK 12530020 
BFAIN SpeLOC MTX$ SteSts5t DseSLITM#PBT ON %$%51712530030 
DSe3CHRS DSe7L1T™ RW/L ¢*8 DSeS5DFCI 2517 12530040 
DSe?),1T)ems DteDte7s pSeaF IL Z517°GRK 12530050 
ENn STREAMS Z517"GRK 12530060 
SPOUTCT)3 Z517"GRK 12530070 
$i 
$! THIS PATCH WILL SPOUT A RW/1. MESSAGE WHEN A PBT IS LOCKED BY COM19 
$$ To MAKE IT EASTER Th DETERMINE LATER WHICH TAPE WAS ACTUALLY 
$t PRINTED, 
$1 
$1 GIRIKENNenyY  21MaR75,  RROCK U, PaTen 517 
$1 SEF ALSO UCSC TSSMCP PATCH 940 w= BROCK U. PATCH 540 
SI ROI IOI IO GI IGIO IORI IGIOISIOIIOR II I ICIOIOIG; IOI ROIOIO IOI IOI A ROR IOI i oe 


$# PATCH NUMBER 950 FOR TSSMCP,XVI.00 CONTAINS 03 CARDS,CLEANUP CANDE STUFF,GRK.j 


—$ SET OMIT ZSETUP SHORT/LONG CARRIAGE MESSAGE B550"°GRK 05751400 

$ POP OMIT B550"GRK 05754600 
Ruud SPOUTITCT.CHRGK+1)3 XSHORT/LONG CARRYAGE MSG Z550"GRK 05756500 
$t 


$1 TurS PATCH CLEANS Up SOME OF THE CANDE=@RE!.ATED MESSAGES A BIT, 

$1 1, DONT BOTHER BUILNING/SPOUTING THE "SHoRT/LONG CARRIAGE" MESSAGE, 
$t oe ; 

$1 «@tRIKENNepy O8MAR76" BROCK U! PATCH 550 

$C ERRNO NOOR UR ER IG RII IOIOIDI OI IR RR IOIOI IOI III RIG I ROI IOI IG IO tok 


£# PaTcH 991 FOR TSSMCP CONTAINS 9 CARDSe SCHFOULER CHANGE 


$t TuyS PaATeH ATTEMPTS TO +MPROVE FFFICYENCY OF TSSMCP BY 
$3 REDUCING UNNECESSARY SWAPPING WITHOUT HURTING TERMINAL JOBS. 


$: 1. THE TIME SLICE tS MADE MUCH LONGER FOR JOBS THAT USE A LOT 


$: | OF CORFE, 
$1 2. BATCH JORS WHICH USF UP THETR TIME SLIicr ARE SWAPPFD OUT 
$3 WITH "TIMEND® AS BFFOREs BUT TERMINAL JOBS ARE SWAPPFD OUT 
$3 AT "FORCEND™s GIVING THEM PRECEDENCE oVER THF "TIMEND" JOBS, 
$1 3. RATCH JORS WHICH ARF FORCED OUT ARE SWaPPFD OUT WITH “TIMEND” 
a RATHFR THAN aT "CORCEND", 
' 
NTHe@CSLNEMIXI] x90 + COUNTEMIXIx94 = NT19x8 + 208) 21111540 
IF PRTROWEMIXI.fPSFI®3 THEN PRTROWEMIXI,CPSFI©03 SUcSc KLUDGE 21212010 
tf NT3#2 THEN STOPM FLSE SWAPC 48030000 
1F LOGLINE, £33730 THEN 480300410 
IF NOT SCHEDLINErTLOGLINE. £40883) THEN 48030015 
FORCESWAP FLSE TIMEND ELSE TIMENDet)3 48030020 
REGIN SWAPCIF LOGLING.£3387)#0 THEN 48038400 
IF NOT SCHFDLINECLOGLING .£40:8]) THEN FORCFSWAP 48038405 
FLSE TIMEND ELSF TIMENDs1): GO To RETURN FND? 48038410 
$3 


i= we ies Re Bw he iw he Be we Bele Re Be Bw) 


be ] 


po Tre Biwe Biwe Res Eee Eine Bie Bie 


3 


917 
917 
917 
917 
917 
917 
917 
917 
917 
917 
917 
917 
917 
917 
917 


950 


950 
950 
950 
950 
950 
950 
950 
950 
950 


991 


994 
994 
994 
991 
994 
99; 
991 
991 
9914 
994 
994 
991 
994 
994 
994 
994 
994 
991 
994 
994 


$t BY JeHe» UCSC*® 7 APR 773 REVISED 16 APR 77 REVISED 28 APR 77 
SS IOI OGIO IG III IO IRI IOIOIGIOI I RIOR ROR IGIOIR IO IOIOI ROR NORIO OK Koi 


$# PATCH 999 FOR TSSMCP CONTAINS 4 CARDSe LAREL THE HIGH*SPEED PAPER TAPE RDR 


$t AUTOMATICALLY ASSIGN A LABEL TO THE HIGH®SPEFD PaPER TAPE READER PORT 
$! WHENEVER IT GOES REANY 
$: BY Dre UCSC FEB, 109 1977 
$ VOINT | 22199000 
PAPFRt LARFLTARLFELU) © MULTITABLELCUJ © "PRa ") 22201200 
RneTaRBLetiny « @1000000003 & RrFl NR* = t 22201400 
GO TO COMMONS 22201600 


BRIO IOI OI RI IOI IOI IG IG OI IOI OR IGOR IOI Ry III ROKK OI aE NOIOR ROR Ok ot 


$# PATCH 993 FoR TSSMCP CONTAINS 2 CARDS,» AUTo™RY OF SCHEDULE LINES AT H/L 

$1 BY OR*e UCSC FERe Ine 1977 
FOR NTie«1 STeP 1 UNTIL LMAX nO 44430000 
TF SCHFOLNFEPNTLI THEN SCHEDRUSYIEFNT1] « 03 44430400 


BORN I IOI IORI IRR RIOR ROR OIRO ORO OIGR IORI ORO KNORR BOR I toi 


S# PATCH 995 FOR TSSMCP CONTAINS 2 CARDS, DUPLICATE FORWARD REFERENCES 00000100 
$1 WHERE THERE ARE 2 OR MORE FORWARD REFERENCES TO THE SAME 00000200 
$t PROCEDURE» THIS PATCH MFLETES ALL BUT THE «ST FORWARD REFERENCE, 00000300 
$t BY Dre UCSC FEB, 35 1977 00000400 
£1 LINE 00364000 ® LINE 06020500 00000500 
$: LINe 00431500 = LINer 03099000 00000600 
$ VOtnT 03099000 
$ VorpT fe 06020500 


SEERA E RIE TOTO EOE EEE OEIC NEE I 


$# PATCH NUMBER 996 Far TSSmwCp CONTAINS + CARD. AUTO*=LOGOUT AT MIDNIGHT 


OFFINE MIANIGHT © REGIN LOGOUT) XCLOCKS™XeLOcKeWITCHINGHOUR} 02393200 
$1 


$1 THs AUTOMATICALLY CUANGFS THF LOG FILE AT MrDNteHTs SO THAT 

Str ACH 1.06 FILE CONTAINS ONLY ONE DAY@#S WORTH Or LOaGINGe TO 

$$ FACILITATE ANALYSIS, 

$t RY JHe UeSce O1/19/77 

SESE eee Te ee TT SST TTT TT ETT CTE TE LITT TTLAOLTT TTT TT TTT TTT 


S¥PATCH NUMBER §98 FOR TSSMCP CONTAINS 2 CARDS. MIXMAX»MAXLMAX 


es 


o 


eo Thon Tew Bie Ries ow Bee Bee | 


So 


3OU9N9 


| 


yo IT JO C0 3S 


oO 


3uGoUO VIS 


991 
994 


992 


999 
999 
992 
992 
992 
992 
999 
999 


993 


993 
993 


993 
993 


995 


995 
995 
995 
995 
995 
995 
995 
995 


996 


996 
996 
996 
996 
996 
996 
996 


998 


DEFINE MrXMaAxe1O#s 
DEFINE MAX}.MAXa90 #3 * SHUD BE ABT 8 + ACTUAL MAX LINES 
BR ke ie tk i ik gO II RR kkk RRR ak kgf Kk ge Ria si kk ta a ak ak 


00004000 
00004500 


) 
n 
p 


998 
998 
998 


TTT TL eT CONFLICTS 


S077 706757 80577001 3+0067146616 18651764 


3" 
007770675 5005370413,00671466167065) 3° 


7 
7 


INBUFF « GETSPACE(C24,10RUFFFRAREAVe1) + 23 
INBUFF « GETSPACE( 219001 ) + 23 


$ vOTDT 
INBUFF t= GFYSPACFC11s1OBUFFFRAREAVel 423% 


INRUFF « GETSPACECO4*1ORUFFFRAREAV#1) + 23 
INRUFF $® GETSPACE (212001) + 23 


LABEL PFEeTrePAsLLs 
LABE!, PEs TEePAs 


SWITCH S 1® LLePAsPFeTFelTeUSsDeTHePRe LOT > TMRe AND OWDS 
SWITCH StePAsPFEe Tre tTeUSeneTnePRe JOT, TMReaDeWn 


IO 
— 


> 2 C65 AND 14 < 6 THEN 
9 GFQ C#5y aNn 14 LEO 6 THEN 


BFGIN GO TO Srt446it 
BEGIN GO To Sefaen)! 


; FORM ® 75#0% SWITCH DCPCO)"FORM™*@"SPFCIAL™ 
FORM @ 76%» B® SWITCH DCPCE)"FORM*@"SPFCTAL® 
FORM = 77#,% SWrTcH DePCCI*FORMM@"SpPECT ALY 


ENN ELSE IF FT THEN CLEARTHEFILE ELSE BEGIN 
FLSF REGIN 


HtarMrTYPEDSPACE( 49 DISKHEADERAREAV) I) & 30rB883R81033¢ 
J1&3nfa8238810)3 


Hs*rMcSpACE a2) 

"FORM , 75 % SWITCH nCPrc) 
"FORM Wy 76 6 

“FORM Ar) 77. % SWITCH D¢ePCcc) 


RFGIN SWAPCIF LOGLING.£3387]#0 THEN 


07003340 
07003340 


07161000 
07101000 


07086000 
07086000 


07101000 
07101000 


18701010 
18701010 


18701100 
18701100 


18710200 
18710200 


20240000 
20240000 
20240000 


20769000 
20769000 


28070000 
28070000 


41485600 
41485600 
41485600 


48038400 


g90 


oosg 


FORGO IO GRIGIO RII IOI IORI IGOR IOI IGIDIOIO GIR IGIGR IOI IOIOIOR I IOIOI IOI IOI GIGI I IOI IOI IOI goto 


CONFLICTED WITHSs 
NITScaRNen 


“CONFLICTED WITHS 


DISCARDFO 


CONFLICTED WITH! 
N1SecaROFoO 


CONFLICTED WITH! 
NISCARDFN 


CONFLICTED WITH! 
DISCARDFD 


CONFLICTED WITH! 
NYSCaRDFD 


CONFLICTED WITH? 
niscaRnen 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITH! 
NrScaRpen 
nrScaRDro 


CONFLICTED WITH3 
nISCARDEN 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 
DISCARDED 


CONFLICTED WITH? 


154 NTSCARDFD 


48038400 p 


FNn3 


@®eee#eee%eeeeeee0e8080060604#8080080 ®@ 


woe GENERATED QU TPUT soko ROR RI IOI IOI IGRI IGIOIOIOIOIIOIEIISI I IOI IGIOIIOI I IIOIIIOIOIOI IOI II IOIIGIOR IG IO IGE ne ak ge 


? EXECUTE ESPOL/DISK 00000004 
? CORE # 12000 00000002 
? STAcK ® 1000 00000003 
? FIle TAPE * SYMROL/TSeMeP NISK SERIAL 00000004 
? frle mrSk = TSS/MCPA 00000005 
? FILE STUFF = TSSMCP/STUFF 00000006 
? DATA CARD 000000C! 


$RFSET LIST SET TAPE STUFF SINGLE 

$ SET AUTONUMP PACKETS nUMP 

$ RESFT SEPTICTANK CHECKLINK SAVERFSULTS STATISTICS 
SRESET NUBUGGING DFX DKRNONFX AUXMEM NEWLOGGING SHAREDISK 
$ SET TWXONLY 


2ep5700 TS*MCP MARK XVT,0L179 05/11/77%173"00001000 


DEFINE MIXMAX@{O#? 2998"00004000 
DFFINE MAXLMAX#90 #3  & SHUN BE ABT 8 + ACTUAL MaX LINES %998"00004500 
"475" %173"00005040 

_ BEGIN STREAMCA1 BTYPEDSPACE(10»SPOUTMSGAREAV) 1 93% 215500005230 
SPACESTACKSIZE = A583 %152°00013870 
SPACESTACKSIZF & 10583 %152=00013890 

ARRAY SPACFSTACKr*]3 %152"00013910 
DEFINE ¥155"00047005 
TYPEDSPACECTYPEDSPACE ie TYPEDSPACE?) & 215500017010 
CGETSPACFECTYPEDSPACEIOTYPEDSPACE2#0;42)# & 2155700017015 
»ARRAYDFSCCARRAYNFSC1,ARRAYDESC2) & %155="00017020 
CUMPOFTSPACECARRAYNFSC1» ARRAYDESC200)4271 & ARRAYOFSe1 FS1ZE))# ¥00017025 

e SAVEARRAYDESCCSAVEARRAYDESC{sSAVEARRAYDESC9) = %158-00017030 
CEMCGETSPACE (CSAVFARRAYDESC1 se SAVEARRAYDFSC201542)) %455"00017035 


& SAVEARRAYDESC1 ¢fSIZEJ)# %00017040 

%155"00017045 

SETERLARAESEUREEASELEER SETAE TALE SELSERE LUST LEyTEAUELEEENE TELE TELEEESEELOOOL TiO; 
Zak IOI OR IGOR OI RIOR IG IOI Oo iG GE a GO dooe ik & £00017110 


%* *£%00017120 
xe MEMORY AREA TYPES STORED IN 386 FIELD OF FIRST MEMORY *%00047130 
Sx LINK OF ALL MEMORY AREAS *%300017140 
Be *%00017150 
EPC T ECC TET EEE CEE CLOT ET TEE TO ET TT ET TEE Ce Tor er TT TET rrr rr rrrne CUTE any 
SEEL SSP TARPAA SATS AE NERA ELE RELEREELETERRER RESTLESS SEL ASERES SV ERS TELE RS © OO0TTLTO 
DEFINE ; %155"00017180 
UNKNOWNARF AV = OF % ¥155°00017190 
eCONFARFAV = 1# % %155°00017200 
»DATAARFAV e 2F ¥ ¥155=00017210 
»TOBUFFERAREAV = 3# % %155"00017220 
eALGOLFIBAREAV ew af & 2455°00017230 
sINQUIRYBUFFARFAV = 5# % 2155"00017240 
»COBOLFTRARFAV = 6# X ¥155"00017250 
sTYPE7ENTARFAV = 7t x %155=00017260 
eDISKHEADERAREAV 2-2 8# & %458=00017270 
eMAINTBUFFAREAV =» Of % %455°00017280 
sLBLEQNAREAV = 10# % %155"00017290 
» SEGZFROARFAV mw 114 & %155"00017300 
eSTACKAREAV we 12# 8 $155"00017310 
sTYPELSINTAREAV = 134% % %4155"00017320 
sSCRATCHDIRARFAV a« {4% & %155900017330 


173 
998 
998 
173 
155 
152 
152 
152 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 


» OPSETAREAV z 15# 2 %155"00017340 
»sDTRTOPAREAV =z 16# & $155"00017350 
» SPOUTMSGARFAV =z 17% % 15500017360 
»UVROWAREAV = 18# % ¥155"00017370 
» JARROWAREAV =e 198 % 215500017380 
»CTDROWAREAV 3 20# & $155=00017390 
s INQINPUTAREAV = 218 % %155"00017400 
s INTARRAYAREAV s 228 % BI5S5"00017410 
eRJFINPUTARFAV ew 23% % %$155°00017420 
»OCQUFUFARFAV g 248 xX %155=00017430 
»DALOCROWAREAV = 258 & %155°00017440 
»SHEETAREAV = 264 % %$155°00017450 
» STAWORDARFAV = 27# % nc MCP ONLY ¥155700017460 
eKEYINRUFFARFAV = 28% & $155=00017470 
»FSAREAV s 29# ¢% %155°00017480 
POCISQUEVEAREAV = 30# ¥ DC MCP ONLY %155"00017490 
s AVTABLEAREAV =e 318 % %155°00017500 
eTRACETABLEAREAV © 32# % DC MCP ONLY 155700017510 
eSFGDICTARFAV 2 33% % %155"00017520 
e STACKPRTARFAV e 34% & %155"00017530 
»MCPTARLEARFAV = 35% % $155*00017540 
» TRSTACKARFAV = 36# 2 %155"00017550 
»FPBARFAV s 37% % %155=00017560 
sCONTROLCARDARFAV = 38# & 2155700017562 
»LABELAREAV =z 39# % %155°00017564 
»MNUMPAREAV s 40# % %155°00017566 
eESPDISKAREAV = 41# % %155"00017568 
sLOGAREAV = 42 & %155°00017570 
sCANDEINPUTAREAV = 43# % TSS MCP ONLY 215500017572 
eORJORENPUTAREAV «= 44# % TSS MCP ONLy 2155700047574 
»TYPESS = 45% ¥ ¥155°00017576 
» TYPE 46 = 46# % %155*00017578 
sTYPEA7 = 478 % %155=00017580 
tor = 48# % %155°00017582 

%155"00017600 


METTTTETTTTTTTTETTTTTTTT TET TRTTTETLELTTEETT TEETER CELT RETR TT LAL 
TOO IOS IGG OGIO ISIC OIG IO OIG OI IDI ioc trick iieiicee 500017710 


xu *%00017720 
Ze MEMORY LIN*« S *%00017730 
Se ; . . - *%300017740 


To EGO ISI OOOO IGE NO iion Hi ia ior E tie cock e 300017750 
SEXESENERSRTEN EYES ERESE RN US VENEE TARAS RESEESEEELSRE SERS ELAR SESSE SESE ENE OT rece 


%$155"°00017762 

; FIELDS OF MEMORY |.INK 0 OF ALL AREAS ®155*00017764 
a %155"°00017766 
FYELn Saas ¥155"00017770 
ARE AAVAILF = 04801 % = 0 FOR IN*USE AREAs = 1 FOR AVAIL, AREA 00017780 
»AREASAVEF = 02101 3 = « For IN®USE SAVE ARFA® * 0 FOR OLAY AREA00017790 
PARE ATYPEF = 03:06 ® TYPE OF AREA (SEF aBOVF) %155°00017800 
eARFAMIXF = 09106 3 MIX INDEX OF OWNER OF AREA %155°00017610 
sARFABACKLINKF = 16:15 % ADDRESS OF PREVIOUS ARFA %155°00017820 
eAREAFWOLINKF © 331215 % ADDRESS OF NEXT ARFA ¥155"00017830 

; %155°00017840 
SVOIDT 00068001 155700059000 


EVE LLYTELATLALLAAELALARULSLALELALTYRALFATE SARL LAAALVSLARTLLASSSLALKVESAZLSKZOOO0KO000O 
QO ORIG IO ROO IO RIOR I ROI IO ORR IGOR RnR ig Bok i iOk doko ok 000600140 
%* *%00060020 


155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
455 
155 
155 
155 
155 
155 
155 


Xx MI SCEtntANEOUS FYreuo DEF INITIONS *%00060030 


tx 


*%00060040 


Bo UO IG GIGI III IIIS IOI IG IIR IG IO IOI IGG soi citi 4300060050 
RALAAULLLALYLALAL SLA SLAG AK LARK KALA ALA LE LER YK LHLA AL ELAAKSELEBELALAEELARXXXXOO0H0060 


FIELD 
FE 
oCr 
eCTF 
eCTC 
oMSFF 
} 


18115 
33415 
FF 
CF 
16101 


a2 a@ de 


FIELD 
FILEBIT 
eOWNRIT 
eDrMeNSTONS 
»BiKCNTR 
»MnM 
3 


011901 
02:01 
03305 
08140 
18415 


BR Be Be 


FIELD 
FLAGBITE 
naTaBITr 
Part 

eSiZF 


»*MOMADDRESSF 
PANDRESSF 


00:00 
04104 
02101 
08840 


ae ae 


Be ae 


48415 
33315 


ae ae 


DEFINE 


B® 22 2G dE Fe 


FIFLOS OF ayT ENTRY 


Be Ve de dE DR 


FIFLNS OF naTA DESCRIPTOR 


BO VE Fe PQ DR DE DA DE FE VA DE 2A DE FE Te BR SE BE DE DA DA DE DE DE DQ Oe 


MISCELLANEOUS NEFINES 


%¥155=00060070 
%155°00060080 
%155°00060090 
%155°00060400 
%155"00060110 
%1455"00060120 
%155"00060130 
2155700060999 
%155*00061000 
¥155"00061010 
%155=00061020 
%155"00061030 
%155700061040 
15500061045 
%155"=00064050 
15500061060 
%155*00061070 
%155"00061999 
%155*00062000 
%155°00062010 
%155700062020 
2155700062030 
%155700062040 
ALWAYS OFF FOR A DATA DESeRIPTOR %155°00062050 
ON TF DESCRIPTOR POINTS To AREA OF CORE %155"00062060 
S1ZE OF ARRAY ROW tr aRRAy DESC, %¥155"00062070 
O FOR INDEXED DATA DESC. oR NAME DESC, %15$"00062080 
ADDRESS nF MOTHER DESCRIPTOR, %155*00062090 
IF PBIT 3S ON THEN THIS FIELD CONTAINS AN%155"°00062100 
ACTUAL CORE ADDRESS, !F THE PBIT 1S OFF THEN 00062110 
TF THE VALUE OF THIS FIELn IS GREATER THAN 00062120 
OR FQUAL TO 512 THEN THE FIELD CONTAINS 421559000621 30 
NMALOC ADNRFESS WHrcH CAN Br USED TO LOCATE THF 00062140 
DATA TN THE OVERLAY D1SK aREA ASSIGNED TO THE 00062150 
THE PROGRAM, IF THE VALUE OF THE FIELD IS LES$S00062160 
THAN 5412 THEN THYS FIFLD eONTAINS A CODE %155"00062170 
INDICATING THE STATUS OF THE AREA, %1455"°00062480 
NEVER ACCESSEN OVERLAY AREA, %155*00062190 
NEVER ACCESSEn SAVE AREA, %2155°00062200 
NEVER ACCESSEn OVERLAY AREA WHICH 00062210 
WHICH IS ASSIGNED TO AUXMEM, 00062220 
INDICATES OVERLAY IS CURRENTLY IN 00062230 
PROCESS FOR THIS ARFA 155700062240 
INDICATES OLAyY HAD JRREFCOVERABLE 00062250 
ERROR WHEN OVFRLAYING THIS AREA.00062260 
THe NEXT ACCESS TO THE AREA WILL00062270 
CAUSE THE PROGRAM To BE TERMI= 00062280 
NATED, %155"00062290 
%155"00062999 

%155°00067000 

%155"00067010 

%155*00067020 

%155700067030 


a wi Nr © 


155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 
155 


CURRLKCNTR «= 16 # & 
sAtTTNDX = 6# & 
oF TF « 1864489415 # ¢¥ 
eF TC = 332¢8:15 # X& 
e»DFLTA = 141 # & 
i 
»MEMTOG = TOGLE,64311)#+MEMTOGMASK n@20# 


sITSALLBATCH © ToGLF.£1681)# 
IF CMEMCWAITSTARE1*0)),€CF 150 THEN 


%155"00067040 
%¥155"00067050 
%155=00067060 
15500067070 
2155700067080 
%155"00067999 
%202"00080500 
%459"°00081785 
%202"00093110 


IF Not MEMTOG THEN SLEEPCETOGLE) »MEMTOGMASKIELSE ELSF00093120 
DFFINE STORENYCSTOREDY) sSTORFOY2)= YFLMEMPSTOREDY1,0]) ¢£eFI20 THEN 202700093400 


MeMTOGS#STORENY2 FLSF 
MEMPSTORENY1,01, iT ta qteSTORFDYo#S 
ARRAY WORKERSTACKEaIs & DESC, To OLOWIERDHARO!.DS STACK, 
ARRAY ESPTaRC els REAL ESPCOUNTS % 
AUTORN w OPTYON  ra7atl#s 
BOOLFAN OKSFGZEROWR TE) 
PROCEDURE FoRmMTIMECWeT)s VALUE WoT? REAL WeTS FoRWARD3 
RFGIN DSe= 16 LIT*PSYSTEM HANGe Fay 
DEFINe PaAGESIZE = 45083 ¥ PaCKET PaGE PBn S1ZF 
1F P THEN MAKELOGCMESSAGE pABSCTYPF))3 
ENDS tF TYPE 1.88 0 THEN TyPE#=643 ; 

T te GETSPACE(S=45 SPOUTMSGAREAVS645 0) + 93 
MEMESSAGEw1),£AREATYPEF] &® SPOUTMSGAREAV3 
STREAM(CXecCMEMFSSAGE"1),(€CCFJ°1) & 7 CeTrd))s3 

NS « LIT es 


¥202"00093410 
¥209=00093490 
%158"00299500 
%158"00399000 
%902"00416640 
%203"00492400 
144700480010 
2101700652400 
%560"702113091 


Z509"GRK 02134000 
Z509"GRK 02134005 


%155#09134300 
2155"02134710 
3647702142100 
%647"029142110 


CS#24CM(BUF FNX 29,£11574#">"))7 88383740) 09173296 


FORMTIMECENTS T#XCLOCK*PCRTR))} 


%144°09173297 


STREAMC(NS#S*1eCLe@SxB°VeAArBRUF TNX ZeBB 1* NT10%144°02173300 


AUF ISCRUFORII): %¥144°02173301 

BEGIN NS t= 7 Lit * *3 sy am LOC BRS DS = B CHRS 02173305 

nS t= 9 LrT * "3 Sy sm AAS %144"02173306 
AtzTYPEDSpACE¢152SPOUTMSGAREAV)) 158909205 a75 
IF N#32 THEN JAREPIMIX96),Citilet: 3 MEM PAR %749°02206100 
§ 18 IF MET), AREATYPEF = CODFAREAV THEN %¥155°02216000 


MeT+i3.CCr) Fuse Os 


%155°02216010 


ELSE PempT=9) ,AREATYPEF sDUP) # TYPETINTAREAV AND%455"072216600 


PCXCH) # TYPEI3INTAREAV) aR L ® O38 
RFGIN 
TF cLUN©L,£419539<16 THEN SLAPITOFFS 
LUNeL,.£4682)4193 % LPAs LPB, OR CPA 


SLAPTTOFF? 
$VO1DT 02261701 . 
REGIN TeCa INX @540000000000000 584708) 3881033 
IF SEPARATE THEN TeT&CLUN¢22)03984711) 
ELSe TeT&CLUN#229 (283478133 
DEFINE MIDNIGHT m= BEGIN LOGOUTS XCLOCK& eXCcLOCKeWITCHINGHOURS 
STOREDY€0,093 
STOREDY (001)! 
TPserMETALETYPENSPACE (51 3eMDUMPAREAV))) 
: & 5i13CS1ZE) x 5021845:3132% 
STOREDY(O*0)8 
STOREDY(001)3 
LSs te SC # "9" THEN Tr Se #¢ LErTARROW THEN 
BEGIN Sy t= S} 4 43 40 Ta LS3 ENDS 
IF SC = LEFTARROW THEN GO To EXIT3 
LRL t® TYPFEDSPACE C10 eLABELARFAVY3S 


%155°02216610 
%675902261250 
%675*02261300 
%675"02261350 
%675°02261400 
%675=09264450 
%140°02287240 
%140°02287245 
%140°02287250 
4996909393200 
%202"09396130 
%202702396500 
%155"°02434430 
%155"02434435 
%202°02434490 
%¥202"02434530 
%141"02615100 
%141°029615200 
%141°02615300 
%155°02639000 


155 
155 
155 
155 
155 
155 
202 
154 
202 
202 
202 
202 
2090 
158 
158 
902 
203 
144 
101 
560 
509 
509 
155 
155 
647 
647 
144 
144 
144 
144 
144 
144 
155 
749 
155 
155 
155 
155 
675 
675 
675 
675 
675 
140 
140 
140 
996 
209 
202 
155 
155 
202 
202 
144 
444 
1414 
155 


Xt CLKrO} te %113"03067500 

$ SET OMIT = NOTCNEWLOGGING) %113"03067600 
IF LOGSTOPPEDEP«aMIX] THEN PROCTIMEPPIMIX] E).SE %113°03067700 

$ POP OMIT 4113703067800 
PROCTIMFEPIMIX] # CLOCK + PCRTR)S %113°03067900 

Real PROcEnURE NPUTSCANCMONF »SOURCF sDFST»sNUMPFLAGSeSFOMONE D3 %159°03071000 
VALUF NUMs FLAGS, SFOMODES %159"03072000 

REAL MODE »SOURCE sDEST eNUMe FLAGS es SEQMODEs %159"03073000 

$ VOInT %995"03099000 
IF Pa>0 THEN MOve(15eP2,7T44) FLSr MI T4+4) «P23 %108"03120000 

FND %151°03147000 

Et.SE % {TS BELOW THE FENCE %151°03147100 

IF JTSALLBATCH THEN % WE WiiL WAIT AWHILE %451"03187200 

BEGIN . %151°03147300 

TANKSCLL] 8% NarnseTy3 —%151"03147400 

CLICK te CLOCK + PCRTR) + 1283 % 2 SEC.%151"03147500 

SLEEP(0.0)3 % WAIT FOR TIME OUT, %154°03147600 

GO TO STARTS % TRY AGAINe 3151703147700 

_ . _ FNDS . %151°03147800 
Real PROcenuRe  +NPUTSCAN ¢MOnr es SOURCE DEST sNUIMsFLARSeSEQMONE D3 %159"03276800 
VALUE NUMsFLAGSsSFQMODE3 %159=03277000 

REAL MODE sSOURCE snEST#nUMe FLAGS eSEQMHDES 2159703277200 


UsFCNEST C3083 IRDESTE3nr33815 IT PCINPTSC ol 308 3IRINPTSCO30%33115}98 %2159"°03290600 
IF Uel AND SFEQMODF SUS, WHEN ONLY “#* LEFT IN BUF es AND IF SFQM0DE%159"03290700 


THEN TRUE s THEN USER BACKSPACFD TO FRONT OF BUFFER, %159"03290800 
REGIN _ %159"=03290810 
STREAM CAIROIDEST)} %159°032908620 

BEGIN DIseDle1)s MAKE INPUT LOOK LiKE A NULL LINE 315903290830 
DSte2LyT" o%3% (SPACE) TO PREVENT eANDE FROM %¥159"03290840 

AteDr3 SRELYEVING TutS 1S ENn OF SFO MODE %¥159=03290850 

ENDS %159"03290860 
PCLDESTI+STD95 %159°03290870 
GO AUT: %159°03290880 
FNDS %159°03290890 
INPUTSCAN? U3 %159°03290900 
Real RESULT = #43) © %302"03292300 
ROOLEAN ZEROTIMEOUT? %302°03296250 
ZEROTIMPOUTLEN, £3294)3 %302°03296300 
Nip 320118203 %302"03296350 
IF ZeROTIMEOUT THEN %309"03297410 

BEGIN %309"03297015 

RESULTIa93 %302"03297420 

STREAMCD!RA,fCFI)3 %302"03297425 

DS:#68 LIT "TIME3 sa % 302703297430 

GO TO RFTURN} %302"03297435 

ENDS ¥302"03297440 

IF PCO,RDOS) < FENCE THEN & BELOW THE FENCE %154*03299700 


BEGIN CLICK #* CLOCK * PCRTR) + 1023 + 102a3 8 34 SEC, %151°03299730 
COMPLEXSLEFPCINPUTANKECTIZINPUTN OR TFERMSETCPIMIX)9$ %151°03299750 


FNn FLSF 7 ; %151°03299780 

Nite NPUTSCANCMODF sSORPoASeCMPALI EFF ITX, £298) oF LAGS £093 %159"03307000 
STREAMCTIEBCCMEND™ )8¢12962480216)90A2)3 %309"03307100 
BEGIN SfamAos DiteLnc Ts DlawDy eas %3029"03307110 

IF 4 SC NEQ De THEN TALLYsF is %302°03307120 
TSSTALLY$3 %302°03307130 

ENDS %¥302°03307140 
RESULTS#POLISHS %302°03307150 


~ ie hu Bw Bw iw Re ee ew Rw Re he Bo Re Ew bo B= Be Bo Be Be Ke Ro Be Bw Bo Rw fo Bo Be Bo Rw Bo he ie Be Ra Bo Be Be eo le Be Be Be eo bo be be eo 2 eo Be Bw fo ie Be 


NI SSINPUTSCANCMODE eSORCHAS#MPAL) CFF IOFLAGS#O93 


GO TO RETURN) 


NS#35L1Te*KkCSe R5700 TSSMCP Of 24 aUG 77, "3 
DEFINE SEQMODE = IF STATAB,STATIONTYPEATWX THEN FALSE 
ELSE ¢LINEDISCESTAISTWX AND SEMARRAYISTAI#0)#3%159°03614700 


NUM? ®NUM+INPUTSCANCMONE #SOURCE sds BUFSZ=T1 oF LAGS * SEQMODE D3 


TNPUTANKESTA) PFE TtaRtecte TL aTR O rHEN Tt FLSE 


TYPEDSPACE¢32,0B.10RINPUTAREAV) Dar3 


IF PAPERTAPE THEN 
BFGIN STREAMCTs®C"END™) * SOURCE D3 
RFGIN SIe*LOc Ts ONLlasSOURCE? 


ENDSs 


SresSr453 nitaentels 
1F 3 SC#DC THEN 
BEGIN DIsteDy-3s OSte3 LIT » "3 END 


FLAGSI#43 


ENN ELSE 


BFGIN STREAMCT3ReC"F ND") 8SOURCE)3 
BEGIN SIeSOURCES DytwLoc Ts 


eNns 


STs#Sr4a43 Ol teDleS3 
IF 3 SC NEO Dc THEN TaLLYtets 
TieTaLlys 


TF POLTSH THEN GO To CEB 


ENNs 


BFGIN STRFAMCSOURCE sKtTtePAPERTAPF )3 


1F SecmMARK THEN 
BEGIN OFteLOC K3 DSta3 LIT “END: 
SrisSled!s OLeeDl e393 
IF 3 Sc=Dc THEN 
RFGIN TALLY#323 KeeSys Dl etaeks 
TODTrepi733 
DStz=3 LIT * #)3 
END ELSE TALLY#=13 
END3 


Rr@POLISHs 
FLAGSt®IF R THEN 4 FLSF 


TE C¢Re2) AND PAPERTAPF) TuFN a FLSE 
IF ¢¢Re?) AND FLAGS) THEN a ELSE FLAGSS 


NUMSaNUM+INPUTSCANCMODE* SOURCE ede BUFSZ oF LAGS» SEQMODE)S 


LASTSFGLOI,CFFI) 18 CSt®TYPFDSPACE 
; C32eCANNF INPUTARFAV) 423 
DS ts 8 DECS DS te 2 LIT * «M3 
DI te OF © 108 DS $8 7 FILLS 
SI] te FF NS #8 10 CHR} 


%159"03313400 
%302"03317500 
%901=03595560 
%159=03614600 


%159"03618200 
%155"03618800 
%155"03618840 
%302°03624400 
%302"03624401 
%302°036824402 
%¥302°036294403 
%307"03624404 
%309"036294405 
%309703624406 
%302°03624407 
%3027°03624408 
¥302"03624410 
%302"03624090 
%302°03624430 
¥302"03624440 
%302703624450 
%302°03624460 
%302°036274470 
%3027°03624480 
%302"03624600 
%302"03625300 
%309°036295310 
%302"°036295320 
%302°0 3625330 
%302703625331 
%302°03625332 
% 302703625333 
%302"03625334 
%309"03625340 
%302°03625600 
% 302703625610 
%302"03625620 
% 302036295630 
2159703634000 
%155°03638500 
%155°03638600 
%149°03733500 
%149"037348000 
%149"03735000 


STREAMCLCFLGISLONGCARRIAGES1 19 VamcVIMGETAREACO) 419303826100 


BEaTN 
nS ie 6 LIT. "DELS<#") 
1.CEFLG (DOS t= 3 LIT te")3 
nS a® LIT LEFTARROWS 
FNn3 


STRFEAMCLeFLAISLONGCARRIAGFEE Si] eVieVelys 
BEGIN 


DS s# 3 LIT “<cH#M}3 
LCFLG (OS te 3 LIT "<")3 
DS tx LYT LEFTARROWS 


FNDS 


%150°03826200 
%150°03826300 
%150°03826400 
%150°03826500 
%150°03826600 
%150*03900000 
%150°03900100 
%150°03900200 
%150°03980300 
%150°03900400 
%150"03900500 


po we Eke Bie Tie Bee Bee Bw Bo Rw Ree Bw Rew Bw Re Bee Ree Be Ew eo Ie Bie hwo Bw eo iw Bee Ew Re Bs Bw be ke Bw Bo Be Be bw eo ie Re Re Few Ee fo ew Bw eo we Re pe Bo ho Be Be ie | 


159 
302 
904 
159 
159 
159 
155 
155 
302 
302 
302 
302 
302 
309 
3092 
30? 
302 
302 
302 
309 
302 
302 
3092 
3092 
302 
302 
302 
302 
302 
302 
302 
302 
302 
309 
30° 
302 
302 
302 
3092 
159 
155 
155 
149 
149 
149 
150 
450 
150 
150 
150 
150 
150 
150 
150 
150 
150 
150 


IF (PC1ODFSC.£3!95) %203°04004110 

$ SET OMIT s DKBNODFX ¥203"04004119 
eNUPS = @14 OR PCXCH 203704004120 

$ POP OMIT %203"04004121 
>) = @6) AND 2203°040041 30 

NOT Tonesc.f€2481) AND 2203704004140 
CCCPCMEPONESC.ECEIIeDUP) FaV OFNOT 0) OR %203"04004150 

cePeycu) FOV 323eNOT 0)) AND %203"04008455 

NOT OKSFGZEROWRITE THEN %203°04004460 

BYBY¢"SEGMENT ZERO OVERWRI TE er, 23)3 %203"04004170 

IF 10D.f2t51830 THEN GO RETURNS & SPh %B4K°04105998 

LAREL FRRORS®DISKERR®DS eX eSWeLPeDK eDXONXLonCrOKeL is 2168704125000 

SWITCH TYPF 8% OK eLP 2 OK pOK es DK eo OKs OKs OK, OKs NK; %168708128000 

IF Us30 THEN . ¥201"04129100 

BEGIN Mr@1534+C 1teR3 %201°04129200 

| DCIOFINISHER)) %201°04129300 

END} 2201704129400 

x 2168704129520 
% cHpek FOR a PaRTralL WORN BINARY RFAD WITH NO PARITY FRRORS, %168=04129530 
Z THIS 1S TLLEGAL AND 1S MARKED AS BEING A PARITY ERROR, %168=04129540 
% . %168°040129550 
IF (€R.018812) AND @44625 = @0440 THEN % RIN READ®NO PAR 3168704129570 

TF R,fi5837 # €¢8"R,622113) AND 7) THEN & PART WN XFER%168"04129580 

R. 2819] te MOD310S3 & MARK AS PARITy ERROR IF MOD III 04129590 

IF CEMECMPO@1534CIIERD P2687) 4CVEET, f5:8]) NEQ O THEN 2201704130000 

SVOIDT 04167801 %168"04167100 
RRRMECH © NOT TWOCUy AND RRRMECHS % Ley SraATUS FINN IT 112704383900 

re RneTarberiid OR MULTYTARLErUJe"FULL PGF %724"04391550 

THEN TF 1OQUFFS3.°9884] THEN LOQUEFS1,. CFF 16040013 ZDBLRCH 41 04391560 

ELSE I0QUECSJ.CFFJ¢@00012 % OBL SINGLE ™ SKIP TO CH 10 04391570 

FLSF % SKIP yO CHAN 1 ON FOP IF NO? 66 LINES %724°04391580 

1F CNT eJARECPIMTxX410) 80 THEN GO sSANmnAy & NO LINE nicT %643°04709900 
DrSKWArT¢@Ts30,NT4)3 %643"04710000 

IF C€AAeBIN], CFF 1920 OR S>BL4) OR A>in?: THEN B6AI"04711000 
NTL¢JAREPIMIXeA]s NT2*aaesS DIV 301 2643"04722000 

IF CNT3eNT2 ntv NT1 + 10) > 29 THEN GO TO SANnAB %643"04723000 

IF (CNTS3¢JARCPIMIX,NT3])20 THEN GO TO SANDA? %643°04724000 
LeNT34NT2 MOD NTIS DISKWAITC™Ts 300193 %643"04725000 

IF (JenrS MOD 3039 < 0 THEN GO TO SANDa3 %643"%04726000 
AheJ.CCEI3 IF JfFF] = O THEN JelFFlels %643°00727000 

$ vOInT %643°04730000 
Ip WHOWeS DrV 30) THEN DYLSKWArTceT, 30erJAREPIMIXe (NTI eAAHW 104731000 

DIV ECNT2eJARIPIMIXSAVIFL0]4NTI MOD NT2) DIV a 93 %643"04731100 
OKSFGZFROWRITEs®TRUEY %203"05665399 
OKSFGZFROWRITEs SF aLSE %203°05665404 

$ SET OMIT SSE TUP SHORT /LONG CARRYAGF MESSAGE B550"GRK 05751400 
$ POP OMIT F550"GRK 05754600 
Seek SPOUTITCT,CHRGK+1)8 SSHORT/LONG CARRIAGE MSG Z550°GRK 05756500 
$ VOINT a %155°05804200 
PePiIMTX)$ PiMeXemO3 ¥155"05811460 
LYsGETSPACE (CAs SCRATCHDYRARFAVeSCRATCHSAVE) 3 %155°05614470 
CoREteCoRes SIZEtexSIZE} DrSkeeDrSxs & INTEGERIZE %645°06004100 

$ VoIpT a) %996"06020500 
GFTESPDISK a@ CCPCDUP A ECFITESPTARSLCFI)x8 7158"06031000 

S +® CESPYAR.CCFI4S,730815]) & S£30831) 3% %4158"06038000 

TFENREFIAND FOURMASK),£133517#40 TuEN GO CLOSEIT? %117"06058630 

IFCNREF +5 2AND NINEMASK), f1828)#0 THEN %117"06058640 


203 
203 
203 
203 
203 
203 
203 
203 
203 
703 
B46 
168 
168 
204 
201 
204 
204 
168 
168 
168 
168 
168 
168 
168 
201 
168 
112 
724 
724 
728 
724 
643 
643 
643 
643 
643 
643 
643 
643 
643 
643 
643 
643 
203 
203 
950 
950 
950 
155 
155 
155 
645 
995 
158 
158 
117 
117 


a 


OKSEGZFROWRITEs STRUES %203706059659 
OKSrGZFROWRITE ser alse 203706059664 

$VOrntT 060982014 %2111%06097600 
REA), NEUS DEFINE UstiT#,UAmUT#sNEU,RNEUSI# NEF UDSNEUSNEUSS ¥149°06351055 
SPOUTERCZ 9259 (NOT LIBMSG) AND 1) 2523°06353660 

FORGETSPACECRUFF)$ PCXIT): %528°06353675 

TERMINATE CMIX& SOCCTFIDS 2517906411010 

IF CSHeT2eREPLYLPIMIXI CFF I) > 35 THEN % I1L%540"06463380 

END ELSF LABELTARLELCT2]ta"(#P(DUP))3 2764706463740 

REGIN %160706468000 

TF PCOsRDS) BTR FENCE %160"06470000 

SVOIDT %160°06471000 
FLSF COMPLEXSLEFPCC(CB OR REPLYCPIMIX] GTR O OR TERMSETCPIMIX9)I3 %160°06472100 
SVOTDT 06472501 | %160°06472200 
TF JARFPIM1Xe9),SYSJORF NEO LIBMAINCONF THEN GO INITIATE? %160°06473100 


891 "07003250 
ERRAEFEERE RELA ERA ARERE REET ERA ALERRERA AES AA AER EKER AREA TAKER ELE EEE EEOTO0925)4 


%891"°07003252 

PROCEDURE FRTABLES %¥890"07003270 
BEGIN LABEL L3 %2890°07003280 
PCOOXTTe Le DELI %¥890"07003290 
Lies %890°07003300 
Da ZAP eM LDDOM™ MOTE? a /D9PM a MOL KOM HM I279% ry MOPDPH De HIODIEM, Me CHO, 9A299% 207003310 
MEDD OM eM OPPO  MODPDM PMODDPOMENDIZON, NH DO DDH, %890°07003312 
988 OH HO 2 22M M722 OM a MOOD IM ORIG IM MODI IM M7729 2H M9999% 2972990299999", 07003320 
MOOD 2M a MID 2DM MODDOM MDODDMEMIIQ2DH  NODDON, %890°07003322 
MBHEEPM Oh 2222M MY px OM eH IDD2M MOS TIM MODID™ ME2D2H MOD DOM SMH TO e99999", 07003330 
sill Oy Wy Wy Blt A Be et De a alll Oe OY Be 2a Dal 2 Oe ae De Ye Be %¥890"°07003332 
@O77T7H6752O057704132 C0671 466169 R651 7647 Se %892°07003340 
©4757 4656 9045554453 ,"2997"  MOR72M, @27742620,025352436,% ¥890°07003342 
M2272 eM IDDDM NDD22M  MIDDOMNDIOON MID90N, %894"07003344 
ZOMARKANNHRESSFS %690"07003350 
HOOD PM MADD DM MID IDM PE MIDDDM SS MOPODM MDDIDN » HODDDM A NIDDDMHENID999N2479999"%, 07003352 
aa We We alt Dae SW di dal Das ee Xs all ile he Dall el 2 hal aa oe ; %890°07003354 
OOo Oe De De Oe Depp Op Or Or Oe Oe Oe On On ¥ SPaer FOR ADARFESSES %890"07003360 
0,0,0,0,0,0,03 £890+0708 3370 
END} %890°070033A0 
%891°07003390 

RHEEEKAEARERER ELAR LEMAR MEARE AREER RAE RALE RARER AREER TEESE EEO EEEER ED EO7003391 
%891°07003392 

REAL PROCENURE SETUPEBTABLES %8909"07003400 
BEGIN REAL AORS |,ABEL EXx!ITs %890"07003416 
DEFINE STORFADNDRFESS*® %890°07003412 
XteSts SrisbLOc Ks SpeaSr45y %890"07003414 
DSte3 CHRS Nrsehtes #3 890907003446 
EBTABLES %890°07003490 
PCEMECADRISePC eEBTABLE) INX NOT 1)9]]¢I0R)3 %890°07003430 
SFTUPEBTABLF S®ADRIBADR, (cr j+33 2890°07003440 

te MEANR+81) «2 O THEN ¥890°070034650 
STREAM ¢XtwOeTABLEIeADR, Y OMARKTABLE ADDRESS! eADR#32eLOCATIONSI@ADR440)) 070034692 
BEGIN, %890°07003464 
DiseTaRLEs SIseTABLEs SI1eS14+83 %890707003466 
2C4OCSTSRS144s nstad CHREIDI %890°07003468 
ZeyRst oerubl abl OF ANDRESSFS WITH ADDRESS OF 75S %890"07003482 

Sr teQmMARKTABLE ANDRESS? %690=07003484 
XeesSyy %890°0700 3486 
Sr:mLoc Xs SiTe#Sye53 ZPOENT SY AT ADDRESS OF QMARKS %2890°07003488 


90O0g0N FTV 8 99 VN 29S 39,o 0 s,Io VI VIV90 993g VN Vos vsI IVs Vv vseTF VsousuoeIsvV oo 889-390 Ve3IINI9 


203 
203 
111 
149 
523 
528 
517 
540 
764 
160 
160 
160 
160 
460 
160 
894 
894 
894 
B90 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
892 
890 
894 
890 
890 
890 
890 
890 
890 
891 
A914 
B94 
890 
890 
890 
890 
B90 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 


DirteLOCATIONS3 


OStm3 CHR} 


SITrseLacaTIons3 


DS:363 WDS3) 


ZNOW SFT ADNRFSSFS FOR VALID CHaRS INTO FReDIC TaBLEe 


StimTaBLE3 


Dr teLOCATTONSS 


3CSTOREADDRESSs «%STORF ADDRESSES FOR LP*0s1+2 
ZCORRESPONDING TO BLAaNKe9 HOLE »8 HOLE 


Sy rex, 


Srt2S14633 SpteS144)! xSkrP 8 WORDS NOWN TABLE 
D1lisD1+83 ZLPe3 TS INVALID 


STOREADORESS? 
DisD1+83 
Srsr*Xe . 
SrtwSrot3 
STOREADDRESS3 
DIissDreas 
STeaxs 
SrisSreot3 
STOREADDRESS3 
DrieDr+a3 
SI:#X;} 
Sre*Sy+t3 7 
STORFADNRESSS 
Orts014+403 
SyemXy 
SlssSr+4) 2 
STORE ADNRESS3 
Orianr+83 
SrteXs 
SteeSreq3 
STOREADDRESS? 
2(NTtsD14+52 93 
Syrsxy 
ST+eSt+43 
STOREADDRESS! 
Nrrepr+B3 
SrimXs 
SpiaSere4} 
STOREADDRESS} 
END) 

END} 


ZLPBOs.oee 7 HOLE 


2LpP25 1S INVALID 
¥SKrP 1 cHAR MOWN TABLE 


ZLPH6....788 HOLES TOGETHER 


ZLP2b" 556 HOLE 


BLPH1000 00628 HOLFS TOGETHER 
£M1SS 5 WORDS. . ob Pett 12013914015 


ELPt816..058 5 HOLE 


&a HOLES TOGETHFR 
DSeeesLPB19"31 


ui 


BLPES9e,000 4 HOLE 


ZLPa3ne eee 488 HOLES TOGETHER 


289007003490 
%890"07003499 
2690°07003494 
%890°07003496 
%890"07003498 
¥890=07003500 
¥890=07003509 
%¥890=07003504 
%890707003506 
%890°07003508 
$890"07003510 
¥890"07003519 
¥890°07003514 
%890°07003516 
$890°07003518 
%890=07003520 
%890"07003529 
%890°07003524 
2890707003526 
%890°07003528 
%690=07003530 
%890"07003539 
890707003534 
%890707003536 
%890"07003538 
¥890=07003540 
%890"07003542 
%¥890°07003544 
%890°07003546 
%890°07003548 
%¥89007063550 
%890°07003559 
%890°07003554 
$890°07003556 
%890°07003558 
%890°07003560 
%890"07003562 
%890°07003564 
¥890°07003566 
%890"07003568 
¥890+07003570 
%890°07003580 
%¥B90°07003590 


FRR OIO IIR IR IORIOR RIO RIOR IIO RIGOR ROO RIO OI iG tok ok tk 07009600 


STREAM PROCEDURE EBCDrCCONVERTcINTOs TABLE e+POINTERS) 3 


VALUE INTOeTABLEePOINTERSS 
PTT TTCTTITTT TTT TI TTT TTT TTT TTT TTT LETT LETITIA LTLUTTTUUEL YS. 


BFetN 


LOCAL HPeLPeSRCESDESTeHPPTReLPPTRs 
ZPAINT HPPTR & LPPTR To LAST CHAR OF HPoLP 


StssLoc HPs 
SriaS74+73 
HPPTRieSy3 
StteLoc LPI 
SyrsSyers 
LPPTRi®SI3 


ZHIGH PART 


ZLOW PART 


SLMmINTOS SLsesr+hs 


$890"07083610 
%890"07003615 


%890°07003630 
%690#07003640 
%890°07003650 
%890"07003660 
%890°07003670 
%890"07003680 
589007063690 
%690"07003700 
BB90"07003710 
%890°07003720 


Qo ovT TU9T 99079 90079 000 _709 9 990 C079 VIV VJuvV VV VI ve TV OIJV VV BI VV VV 9J0 VMN TVVIGSVO 


890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 


DItsINTOS 
ZSTART CHARACTER TRANSLATE LOOP 
2¢40¢. 
DESTtsDr3 
ZTRANSFER LOW & HIGH PARTS 
DIteHPPTR3 
DStw4 CHR$ 
DI teLpPTR3 
DSt®1 CHR} 
SRCEteS13 BSTORF SI FOR NEXT PaSS THRU LOOP 
®NOW FINn THE POYNTER yNTO TaBLr APPROPRrarr TO LP 
SttePOINTERSS 
LPCSTssST4Ay3 


StreSe3 ZS1 NOW POINTS INTO TARLE @ POINT DFPENNANT ON LP 
DIteNrsTs : 

SyteSrauP3 ¥SKTP St THROUGH TABLE HP CHARS 

DSteCHR? 


ST#eSpCE))s3 
DI:=TABLES N1ss01433 
FNn CONVERTS 
BOOLFAN EBCnr1C? REAL FRTARLFANRS 
IF EBCDIC THEN 
BEGIN — 
FBCDICS*FALSES 
Mre*Pe .FRTABLe) Nx NOT 4)],728178803 
Enn?} 
STREAMCXEMMPACKETS* 8 Yt Ra" CONTINU" ee ZE@MEND, , 
EBre"PATAOZ9O™s INBUFF)s 


ZPOINT TO QMRK 


INRUFFESBST3 
FLSE BEGIN STtetNBUFFSDrtelLoc Y3 
ST te INBUFFS 
IF 3 Sc@nc THEN TALLYt#7 
ELSE BFGIN 
NrieLOc ERSDI t=nlets 


%890"07003730 
%¥890"07003740 
%890"07003750 
¥890"07003760 
%890"07003770 
%890°07003780 
%890*07003790 
%890"07003800 
%890°07003810 
%890"07003820 
%890°07003830 
289007003840 
%890°07003860 
%890"07003870 
%890°07003880 
¥890°07003890 
3890+07003900 
%890"07003910 
%890"707003920 
%890°07003950 
%890"07009200 
%890°07031200 
3890707031300 
%890°07031400 
%890"07031500 
%890"07034600 
%890"07032000 
2890°07032100 
%890°07034500 
£890=07036220 
%890=07036250 
%890°07036260 
%890°07036270 
%890°07036280 


SttarNBUFFS 07036290 


tr 6 SCzDC THEN 
£VnID 


%690"07036300 
%B90"07036310 


TALLY s mas 07036320 


$VoIn 07036351 
END END ENDS 
IF PTYPE » 4 THEN 
BFGIN PTYPEt#O3 ERCDICS#TRUES 
EBTABLEADRtaSETUPERTABLES 
FNDS | 
FLSE BFGIN WHILFCOSSWAITIOC@4O0000004INBUF FS 
FRCONICX@Q00000003 fF TRSTx4s 
IF FIRST AND CDONLY AND NOT CONTINUE THEN 
GO EX1T ELSE 
If EBCDIC THEN EBCDICCONVERTCINBUFF >» 
EBTABLEADReFBTABLFADR#+40) ELSE 
STREAMCOMKS®128BCLieiweERCDles INBUFF 93 
BEGIN 
SIT? INBUFFS 
BCL ¢rF Scere" THEN JUMP OUT TO 
IF SCw@14 THEN 
Li! BEGIN SIteLoc amksSytsSy473 
DSi=t CHR} 


%890"°07036330 
%890"07036390 
%890"07039500 
%890*07039600 
%890"07039700 
%890707039800 
%890"07059000 
£690#07059010 
%654°07059440 
%654°07059419 
%890*07060100 
%890"07060200 
%890"07066100 
%890*07066200 


%B90°07066300 


Lids 07066350 
%890=07066400 
%890"07066500 
2890°07066550 


890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
B90 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
890 
654 
654 
890 
890 
890 
890 
890 
890 
890 
890 
890 


TALLYte4) %890°07066600 

STteINBUFFS %890°07066610 

2C36C1F SCua%>" THEN %890=07066620 

BEGIN INBUFFieS!ls; Nlt@rNBUFFS %890°07066630 

OSt#LiT "ar %890°07066635 

ENDS %890°07066640 

TF SCm">" THEN %890°07066650 

BEGIN INBUFFSeSts ptieyNBUFFS %890°07066660 

OSt# LIT wne . %890°07066665 

FNS STH*ST 41394 %890"07066670 

FNnS %890"07066700 

QMK teTALLYS %890=07066800 

ENDS %890°07066850 

Q1"P OR Q3 %890°07066900 
SVOInT 07071912 %654"07071899 
$vOrnT 07072902 %654°07072899 
$ vOyDT ; ¥890#07086000 
FIRSTCARD tm GETSPACE (10 sCONTROI.CARDAREAVl1 493% %155"07087000 

ELSE BEGIN OUTBUFFOLND t® OUTRUFF 3 %155°07095000 
GETSPACEC60e1OBUFFFRARFAVe1) 423% %155"07095100 


H te SAVEARRAYDESC¢30,D01SKHFADERAREAV)#% %155"07097000 
INBUFF « GETSPACE Coy + TOBUFFFRAREAV®4) + 25 %899"07101000 


ADECK © Of FIRSTORSEC « %172"07108100 
$ %172°07108999 
$ . %172°07109001 
SvOInT 07118401 %106"07118100 

IF PACKETCARD = 5 THEN 2106907118500 
IF PTYPE = 3 AND NOT CONTINUF AND NOT ANECK THEN %106°07139520 
ROMBES TF OUEL8 THEN FORGETITIS %161"07231000 

SHFAT Sm MPF SE TYPEDSPACE( 31eSHFETAREAV464))) & 300812£13%07256400 

SFGO t® TYPFOSPACE(30sSEGZEROARFAV+6443% %155"07257400 

SHFATE24) seMCP3 %129"07262400 

SteLOC T1i3 $511"07295100 

IF SC¥"O" THEN Gon TO AQ 2511707295102 

FLSE SreSi+is %511°0729510a 

AQ! BEGIN DS#3 LIT “se "3 511707295160 

IF CAS®N¢SxePCDUPI41) > CHE7)41) THEN %639°07397000 


1F 170 THEN ® NEXT RUFF EXISTS %639°07401900 
DSteBLIT™txOx4O0O™s DSseBLITMOPACKET"™3%133°07418700 


H t= cYDROWPR) t= CMrSts 15507433000 
GETSPACE (94 sCIDROWAREAV46404)421) & 94 SIZES %155"07433100 

TEmGETSPACE C1 3eCONTROLCARDARFAV46400)443 %155"07446000 

IF CMEMEMTXeOJ].°CF) 2 FENCE OR JTSALLBATCH THEN %454"07560000 
DieDieas DSeLIT "ay %725-08029046 

IF NOT Teriei) THEN IF TRO THEN %725"08033980 

If 7,0131780 AND T#O THEN BEGIN %725°08033992 
STREAMCBUFFIS DS*17 LIT "NOT PG@EDCPRNBOJeny $725"08033993 
LABELTARLF(UJ* @143 GO EXIT FNDS T*ARSCT)I %725"08033994 

IF TEST THEN REGIN STREAMCB*TsBUFFD? %708"08051000 

BFGIN Se10 LIT*"PGeEDCPRN|YS STeLOC BS DS#S DEC? DSe2 LIT#)e"32%708"08051004 
EN? FND & PRINT PRN WrtTH PLaIN PGMT %708°08081005 
SVOIDT 08138004 %147°08095000 


BRERBKRAATASSAATERATTAKATK LAA KLALRTLALTLA KALLA ALLEL SLATLIALLLALIELVLXOGKOIGOSH 
TTT TE TIT ITE TT TT LITT ITT TT TTT TT TT TET TTT TTT TT TUTTE CET TTT TTTTTTT TTT TTT TTT TLE) 


a «%08095150 
%* PRrnNnTOrTRECTOR ¥ *%08095200 
ss reer ee ee we Pe BM BP ee *%08095250 


oo 7 37 ess, I 98990 gs9IV VVV S9IIVI VV Vv9I9 S9OVV BVV VII VIVONSIVIVNV VIVO VFO VOB IVVIV VeVI|AaD 


890 
890 
890 
890 
A90 
890 
890 
890 
R90 
890 
890 
890 
890 
890 
654 
654 
890 
155 
155 
155 
155 
B99 
472 
172 
172 
106 
106 
106 
161 
155 
155 
129 
511 
511 
511 
511 
639 
639 
133 
155 
155 
155 
151 
725 
725 
725 
725 
725 
708 
708 
708 
144 
144 
1414 
144 
144 
144 


PURPOSF! THrS PROCFENURF HANMLFS THE Po. fXs_LFe bC AND LS 


MESSAGES, ALL MESSAGES ARE FORMS oF THE PD MESSAGE 
EXCEPT FOR CERTAIN OIFFERENCES, THE PD MESSAGE WILL 
LIST THE NAMES OF THE ODESTRED FILES AS WELL AS 
CERTAIN PIEr ES OF INFORMATION TF REQUESTED. 


SYNTAXt THE FORMAT OF ALL THE KEYIN MESSAGES WITH THE 


EXCEPTION OF THE LF MESSAGE IS AS FoLLOwSs 
<MFSSAGF> <FILF SPECIFTFR> <OPTION®LIST> 
<«MESSAGE> See PD / FX / LO / LS 


<FILE SPrerFIFR> ee <FILENAMF> / <FrLENAMF> "7" 
<FTLENAMPF> 


<OPTION@LIST> t8s €EMPTY> / <OPTION> / <OPTION? » 
<OPTION®LIST> 


<OPTYON> tis RFCS / LAST / DATF / SAVE 7 SIZE / 
CREATOR / SECURITY / ALL 


<FILFNAMFE> «t® (FROM 1 TO 7 CHARACTERS OPTIONALLY 
ENcLOSen 1N QUOTES) / & 


THE SYNTAX For THE LF MESSAGE 1S 
LF <USERID> <OPTION@LIST> 


SEMANTICS! THF FX», Lee Lee AND LS MFSSAGES ARF JUST 


MODIFIED FORMS OF THE PD MESSAGE! THE FX MESSAGE 1S 
THE SAME AS A PD EXCEPT THAT ONLY THE FXPIRED FILES 
ARE LISTED, THE LF 1S THE SAME AS A PDR/® EXCEPT 


THAT ONLY THE FILES BELONGING TO THE SPECIFIED USFR 
ARE LISTED, THE LC MESSAGE 1S THE SAME AS A pp 
<FILE SPECYFIFR> CREATOR”, THE LS MESSAGE IS’ THE 
SAME AS "PD <FILE SPECIFIER> SECURITY® CREATOR", 


THE OPTIONS SPECIFY WHAT ADDITIONAL, INFORMATION 
1S TO RFE LIsTrn BESIDOFS THE DFFAULY INFORMATION, IF 


AN UNRFCOGNYZABLE WORD IS ENCOUNTFRED +N THE OPTION 
LiSTs TT YS TGNORFD,. THF AVAILABLE OPTIONS ARE? 


RECS » NUMBER OF RECORDS IN THe Frbe. (SPECIAL LOGIC 
1S INCMRPORATED To THE LIST THE CORRECT NUMBER 
FOR BACKUP FILES), 

LAST » LAST ACCESS DATE, 

DATE = CREATION DATE, 

SAVE ™ SAVE FACTOR, 

SIZE = SIZE oF THE FILE IN SEGMENTS, 


CREATOR * PRIVILEGED USFRCODE ASSOFAITED WITH FILE. 


#%308095300 
*%08095350 
x¥08095400 
*%08095450 
*%08095500 
*%08095550 
*%08095600 
*%08095650 
*%08095700 
*308095750 
*%08095800 
*%08095850 
*%08095900 
*%308095950 
*%08096000 
*%08096050 
*%08096100 
*%08096150 
*308096200 
* 308096250 
*¥08096300 
*%08096350 
*%08096400 
*%08096450 
*%08096500 
*%08096550 
*%08096600 
*%08096650 
«*%08096700 
*%08096750 
#%08096800 
*Z0B096850 
*%08096900 
*%08096950 
*%08097000 
*%08097050 
*%08097100 
*%08097150 
«208097200 
«208097250 
*%08097300 
*%08097350 
*%0B097400 
*¥08097450 
*%08097500 
*%08097550 
#%08097600 
*%08097650 
*%08097700 
«208097750 
*%08097800 
*%308097650 
*%08097900 
*%08097950 
*%08098000 
*%08098050 
*%08098100 


V9 Vvoaoy8I- Ss Ie sv, 899 99T C0799 39379790007 _”7 VEO VI 3 V9 8 TT 9JVo0 SsI VOV VI VVIVI VVOVOVISO OVI Z 


144 
144 
144 
144 
144 
141 
144 
144 
1414 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
1414 
144 
1414 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 


%* SF 


(FOR BACKUP FYLES THE LABEL OF TwE PRINT FILE 
AND THE NAME OF THE PROGRAM CREATING THE BACKUP 


TS ALSn LISTED), 


cuRrty = accrss PRivtlbearS OF THE FrbEs t.Fee 


LOCKED. UNLOCKFDs PUBLICs PRrVATEe FREE. 


*%08098150 
*%08098200 
*%08098250 
*%08098300 
*%08098350 
*¥08098400 
*20B8098450 


Tee RO IOI IO IOS IO IOI IO Og HO IO OG ie toi 308098500 
RL LALA S YALA LAA LA LALA LL LE KAYLA HEALS LYRA KYL ALK YALL SLA EK EKA KLE L LEE LAX YHXX0B09B8550 


PROCEDURE prRIN 
VaLUF RUFFS 
Real, RUFFS 

BEGIN 


INTEGER 


32 DR De dR DE DE dq 


% 
+ 4 
x 
+ 4 
Fe b 4 
% 
z 
x 


LABFLRECs 
USERIDs &% 
Xt % 


ARRAY 
HORe#Y 6 % 
X, STLeIIe 


ROOLE AN 
PRDTOR, & 
FaUNDAF ILE 


LaBrl EXITeD 


TOIRECToRYCBUFF 953 


NORMaLLy rONTATNS De TIgh NUMarFR. 
JUNK* 


F&wn—- Oo 
4 
7 
oO 
2 


MFID OF DeStRED FILE OR 1 IF wan, 

FIN OF DESIREN FILE OR “1 IF "eM, 

ANNRESS Of ntSK HFADFRe 

MerD OF LaST FILE FOUND BY SFEKNAM, 

FrD oF LAST FILE FOUND BY SEFKNAM: 

Wark VARIABLE USED BY SEEKNAM To SAVE INFOe 
NORMALLY USFR TO SAVE DESTe TNDFX, 

RrT MASK cOR OPTIONS SELECTEN. 

% ADDRESS OF LABEL, RFCORD FOR PRD ¢ Ir LC ). 
USERID IF LF, 

JUNK, 


OFSCRrPTOR To DrSk HEADER. 
SamE DAY WE MAY ALLOW EXCEPTION LIST, 


TRUF TF SFLFCTFD FIlF 1S A Pap. . ‘ 
’ % TRUF IF WE |, ISTED OUT AT | EAST mné FILE. 


ROPOUT#*NUMMY »sOPTIONS) 


nrFyNe NUMOPTS & 7#3 


NFFtNe Ph a (CODE = 09%, 
EX w (CODE e 1>#, 
LC = (CODE * 258e 
LF ® (CODE = 358. 
LS 3 (rOnr © 4583 
DEFINE 
PRIMARYUSER = HDRCAl#s B PRIV, USER CODEs 
SaVFFACTOR — ® HDRC3).02:10)#* % SAVE FACTOR, 
LASTACCESSNATE ® HORE3I.C12816]#» % LAST aCcESS DATE, 
CREATIONNDATE ® HNRE3).6308181#+ ¥ CREATION DATE, 
GUARDFITLFEMFIND #& HORT 53#» % MFID OF GUARD FILE. 


¥141=08098600 
314108098650 
%141=08098700 
¥141~08098750 
%141=08098800 


141708098850 
214108098900 


%144=08098950 
%147°08099000 
%141°08099050 
%141°08099100 
%141"08099150 
¥141708099200 
%141"08099250 
%141"08099300 
%141°08099350 
%141"08099400 
%141*08099450 
%144"08099500 
%144 "08099550 
%141"08099600 
%141°08099650 
%141=08099700 
14108099730 
%141°08099800 
2141708099850 
%141"08099900 
%141*08099950 
%144"08100000 
%141°08100050 
¥141°08100100 
%144°08100450 
%141%08100200 
%144°08100250 
¥141708100300 
%141°08100350 
%¥141"08100500 
$144°08100550 
%141=08190600 
%141°08100650 
%141°08100700 
%141°08100750 
%141=08100800 
%141°08100850 
%141*08100900 
%141°08100950 
%141°08101000 
%144°08101050 


yuo SV9E99I9 99 E90 F999 89099 9999 VV9 s9 0 V8TTVV 89 00 VVC VI VI VD TVI IW OI VIVVIVSeTVIS 


141 
141 
141 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
149 
144 
144 
144 
144 
144 
144 
141 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
444 
144 
144 
144 
144 
141 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 


GUARDFILFEFID = HNRE6I4¥s * FIN OF GUARN FILE, 
EOFPOINTER = HORE?) #e % EOF POINTER: 

SFGSPERROW = HDRIBI#. % SEG. PER ROw,s 

NOOFROWS = HORI9OJ.©4315]#» % NO, Of ROWS DECLARED, 
HFADERADDRESS #® HDR. CFE Ia % CORE ADDRESS OF HEADER, 


%¥141"08101100 
1417081011450 
%141°08101200 
2141908101250 
141"08107300 


Zektkatekeketkheeeeee 6 UO BOR OU T INE So *uteteeeee eee eee ee 08101350 


: SUBROUTINE GETREADY3 
BEGIN 
CODF t= BUFF.£91613 
BUFF t= (TteBUFFD fi5t15) © 43 
INFO tm O & (LC OR LF OR LS)rarta7siy & LSPA3r478173 
END OF GETREADYS 


%141°08101400 
141708101450 
%141°08101500 
%141°08101550 
%141°08101600 
¥1474"08101650 
%141°08101700 


. 2144"08101750 

SUBROUTING GETFILESPECIFIERS %141°08101800 

XY ween Pann am Cn BAHAR, Rw ee %141°08101850 
BFGIN 2141°08101900 
NAMEINCMFIDeT)$ & GET MFID COR USERCODE IF “Ley %141708101950 

IF LF THEN USERID #® MFIOs % FIRST THING {tS USERID FOR LF. %141"08102000 

IF MFIN & “ee " OR LF THEN ¥141°068102050 

MFin te * 13 %141"08102100 
NAMFENeFInegT)3 %149"08102150 

IF FID = w/ e THEN & GET FID 2441=08102200 

BEGIN 7 2141°08162250 
NAMETOCFIDOT)3 ¥141708102300 
NAMEINCNST)$ & GET NEXT TTEM, %141708102350 

END ¥144%08102400 

Er.SE & NO FID SPECIFIED IMPLIES FID oF wee %441708102450 

BEGIN %141°08102500 

N 4" FIDS %141°06102550 

FIN tx 43 %141"08102600 

ENDS, %141 "08102650 

IF FIN.f£686) = LEFTARROW OR LF THEN & NO FID SPECIFIED %¥141°08102700 

FID gm = 43 %141°08102750 

END OF GETFILESPECIFIERS %141°08102800 

x %141°08102850 
SUBROUTINeG PROcESSOPTPYONLISTS $141"08102900 

Y ewes atone Se Ren EE BZ eRe 2141%°081029850 
BFGIN %141708103000 
WHILE N # Me " nO ® ACCUMULATE OPTTONS 141708103050 

BEGIN ; %141"08103100 

FOR + ye "3 STEP 1 UNTIL CNUMOPTS = 2) 90, ¥141°08103150 

DUMMYS! te Pe, OPTIONS, reeeL0N) @ N THEN &% MaTCHeS AN OPTION WORD _ 08103200 
BEGIN 214108103250 

INFO ¢® INFO OR TWOCT4193 %® SFT BIT CORRESPONDING TO OPT08103300 

60 TO nROPOUT?: 141708103350 

FN 14408103400 

ELSE ® CHECK FOR “ALL” 144708403450 

IF Nn ® MALL “ THEN % SET ALL OpTIOm WORD BITS, 4441708103500 

INFO 3 NOT O3 7141708103530 

NROPOUTS ; : %141*08103600 
NaMFIN¢N,T)3 x Get NEXT OPTION WORN? %141°08103650 

IPN mw * THEN NAMEITDCNe TIS & SKIP OVER COMMA, $141°08103700 

ENDS %144"08163750 

GO TO FXITs %141°08103800 
%144°08103850 
OPTYONS 288% "RECS ", % OPTION O CINFO.r47811) %141°08103900 


144 
144 
144 
144 
144 
144 
144 
141 
144 
1414 
144 
144 
144 
144 
144 
144 
141 
144 
144 
141 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
444 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
4a4 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 


EXITS 


"sSIZF 
"SrcuRIT 
PCREATOR 
"SAVE 


" 


» %& OPTION 
*, ¥ OPTION 
", % OPTION 
") % OPTION 
", ¥ OPTION 
"; ¥ OPTION 


FND OF PROCeESSOPTIONLISTS 


SUBROUTINE GETSETS 


BEGIN 


Ip FX OR INGO # O THEN & WE WILL NEEM THE HDR: 


AWREwN-= 


CINFO.f 4631) 
CINFOs 64521) 
CINFO,6441:1) 
CiNeO,¢43913 
CINFO, 64291] 
CINFO.r4itt) 


HOR sw 1OQUF & sPACEC39) ecTcy)s 
END OF wETSET) 


ROOLEAN SUBROUTINE WEGOTAFILES 


BrG1N 


SPEKNAMOMFYDeFIDereDeFoNeXLST)F & FIND A FILE’ 


WEGOTAFILE t# C # 03 % C 1S ADDRESS oF DISK HEADER, 


END OF WEGOTAFILES 


ROOLF AN SURROUTING WEWwANTTHISFILE? 


BearN 
PRONTOR t= «(hn £A 


IF HFANDERADDRESS #¢ 0 THEN % WE NEED THE HEADER. 
DISKWAITC™HEADFRANNRESS»,30.0)3 & READ HFADER, 
Te LF THEN & CHECK TO SEE IF WE WANT THeS Fike, 


2 NO 


WEWANTTHISFILE 


ELSE 


IF EX THEN 
BEGIN 


STREAMCAT=CALCULATEPURGEC*SAVEFACTOR) eXterx) 3 


BEGIN 
St oe 


ENDS 
WEWANTTHIS 
END 
ELSE 
WEWANTTHISFI! 


V *PRD ") =» NOT O OR ¢m EQv "PUD 


T OO 


13 PRIMARYUSER & USERID 


Lac AI DS ¢* 8 OCT? 


w) 


%141°08103950 
%141°08104000 
%141708104050 
%141=08104100 
%141"08104150 
%141"081048200 
¥141708104250 
141708104300 
%141=08104350 
%147"08104400 
%141°08109450 
141708104500 
%141°08104550 
%141"08104600 
2147 "08104650 
%141°08104700 
%141"08104750 
%141=08104800 
%141°08104850 
¥141 "08104900 
%141"08104950 
2141708105000 
%141°08105050 
3141708105100 
%141"08105150 
%141°08105200 
%141=08105250 
%141"08105300 
%141"08105350 
%141°08105400 
%144=08105450 
%141"08105500 
%141°08105550 
%141"°08105600 
%141"°08105650 
%144"08105700 
%149*08105750 
7141708105800 
%141°08105850 


FrLe te X > LASTACCESSDaTrFs & TRUE TF FILE FXPTRFED08105900 


LF «me TRUES 


END OF WEWANTTHISFILE? 


SUBROUTINE PUTINeTLENaMey 


BEGIN 


STREAMCAS"0 1 De fe RUFF): ® SET UP FILe NAME, 


BFGIN | 
S+ ts LOc D3 
NS te |IT * 


2 ¢ St mm Sto 6 92 DS se 7 CHRE DS te LIT W/")3 


Or we o1 7 t 


NO$ t® 2 LIT 
A 13 nv} 
END} 


J eee tseonan Fea ater F eee Ee 


a 


“ ; £ NFED 2 SPACES TO aLLOw FOR ARROW, 


2141°08105950 
%141=08106000 
2141708106050 
141708106100 
%141°08106150 
%141"08106200 
%144"08106250 
%141708106300 
%141°08106350 
%141°08106400 
%141=08106450 
%141°08106500 
141708106850 
%141°08106600 
%141°08106650 
%141"08106700 


%141708106750 


ww tw Re Re Be Ew be Be Bw iu Ba Be Ro Ben Bi be Be Be le Ew B= i= Be Re Bw bo hw Be Ro Re Be Re Re Bo be Bw Bo lo Be Bo Be Be Bo be Be Be = be Be Bo feo oe Be bo Be es Bo) 


T te PS} & SAVE OFF DEST, 
END OF PUTINFILENAMES 


SUBROUTINE DORFCS! 


Y wanna ane eee 


BFGIN 


STREAMCAS@IF PBDTAG THEN FOFPOINTERxS EFI.SF EOFPOINTER+! 


RFGIN 


NS te 9 LIT WRECORNS! 


Sy te 1,0C A3 


NS 1* 8 DEC? ¥ CONVERT NUMBER OF RECORDS TO DEC, 
A t8 mts & Saver OFF At REFORFE ZERO SUPPRESSING, 


ny te nt @ 83 
NS ts 7 FILLI 


ENDS 


T 1m PY 


FND OF NORECS! 


SUBROUTINE DODATEORLASTS 


BEGIN 


STREAMCX REX] )3 
BFatN 


Sy tx X3 


DS t® & DEC & CONVERT DATE To DECIMAI.« 


INDEX, 


"3 


% SAVE DESTINATION ADDRESSe 


oT93 


ENDS 
GIMENATECEX], COFIJ,°X 93 % CONVERT JULIAN DATE TO 6 DIGITS. 
SYREAMCASRCIRI9 3 
BEGIN 


Las 
St tm LOC X3 
Sy tm Stoo 25. 
3 ¢ DS te 2? CHRIS DS te LIT "/")3 
A t* Os & SAVE DEST. 
END) 


T #8 PZ ¥ SAVE DESTINATION ANDRESS,» 


A ¢ 0S te 10 LYT “acCrSSrot "3 JUMP OUT To Li)! 


nS t= 9 LIT "eReatro!? "3 


Df s= DI © 43 % ERASE THE EXTRA SLASH, 
INDEX, 


END OF NODATEORLASTs 


SUBROUTINE DOSIZF3 


x Pee Faewenn CH ew ee 


BrarN 


NT2 tx NOOFROWS? x NO, OF ROWS DECLARFD: 

NT{ tm 08 & NUMBER OF ROWS PROCESSED, 

J tw ¢ STEP 4 UNTIL NT2 DO & CHECK TO SEE IF ROW FXISTS, 
IF HOR(TJU*+9) # 0 THEN NTy te NT + 43 & RUMP UP COUNT, 


FOR 


STREAMCALENTIxSEGSPFRROW 3: T33 
RBFATN 
nS t= 10 Let eSreMeNTSs 3 


St t= LOC A} 

NS * 8 DEC? 

A t™ nts 

ny te nr 2 B83 
NS ts 7 FILLS 


%141°081068600 


%141°08106850 
2141708106900 


2141°08106950 
%144=08107000 
%4441°08107050 
141="08107100 
%141°08107150 
%141°08107200 
%144"08107250 
%441°08107300 


¥141°08107350 


%141=08107400 
%141°08107450 
%144"08107500 
%141°08107550 
4141708107600 
%141°08107650 
%144"08107700 
%141=08107750 
%141"08107800 
%141"08107850 
%141"°08107950 
%141°08108000 
%141~08108050 
%144°08108400 
3141708108150 
%141"08108200 
141708108250 
%141*08108300 
%141°08108350 
%141°08108400 
%141"08108450 
%141°08108500 
%147"08108550 
%141*08108600 
%141°08108650 
%141°08108700 
%141°08108750 
%141°08108800 
%141°081088650 
2141708108900 
$141"08108950 
141708109000 
1417068109050 
%149"08109100 
$144 "08109150 
$144"08109200 
£141°08109250 
%141°08109300 
%141°08109350 
%144=08109400 
%144"08109450 
%141°08109500 
%141708109550 
%141"08109600 
%141"08109650 


io te ie Bw Bw Ee Ke tow Bie Bw iw Re Be Re Bw he Is Bu he Be iw hw kw Be be be Be Rw Re Bw Bw Bw hw Re Re hw Rw Be Bow bw Re Bw bow Bm Be Bw Bw be Re Be Bo Ro Re bo Be bo Bw 


144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 
144 
144 
144 
144 
144 
144 
141 
144 


z 


% 


ENDS 
T t@® py & SAVE DESTINATION ADDRESS« 
FND OF NOSIZF3 


SUBROUTINE DOSFCURITY? 
BEGIN ey 
J tm IF PRIMARYUSFR ® O THEN O & FREE FILE 


FLSE IF GUARMFILEMFIN = MARK THEN & UNLOeK OR PURLIC 


IF GUARDFILEFID » MARK THEN 1 % UNLOCKED 
FLSE 2 % PURL?C 
ELSE IF GUAROFILEMFID < 0 THEN 3 % PRIVATE 
ELSE a3 % LOCKFD 
STREAMCJ ¢ ASS®GUARDFILEMFID® BreGUARNFILEFIOe Ty: 
RBFGIN _ 
n§ te 10 LIT @SreURITy! 3 
Cr te cry # J} 
GO TO FREES. 
GO TO UNLOK; 
GO TO PUBLIeS 
gO TO PRIVATES 
LOCK! DS te 6 LIT "1.0CKED"S GO TO EXIT3 
PRIVATEINDS t& 92 LIT #PRIVATE CSECURED WITH "3 
S?1 s® Loc AS : 
2 ¢ St t@ SI + if DS 1™ 7 CHRS DS te LIT "/")3 
ny te nr 3 
HS $e LIT "25 
GO TO FXrT) 
PUBI.IC# OS t# 6 LIT *pUBLIC*®S GO TO EXITs 
UNLOKs DS ts 8 LIT "UNLOCKED" GO TO EX1T3 
FREES NS 32 4 LIT “FREES 
FXIT! Jo ten 
END? 
T se p3 & SAVE DESTINATION ADDRESS, 
EnD OF NOSECURITYS 


SURROUTING nOPRFATORS 
BFGIN 
SSET OMIT ® PACKETS : 
re JewePanToG aNn ¢r.f30818)] & 19) THEN & REEL 1 OF PRn 


SPOP OMyT 


SSET OMIT = NOT¢PACKETS) . 
TF Jts¢PBDTOG AND ¢E.f4236] = 129) THEN & REEL + OF PBD 


SPOP OMIT 


BEGIN . . = 
tr LanebLRec = 0 THEN LaReLRec t* SPaCr (3043 
nrSKWArTe@LABELRFCs390,HDRe10142)3 

END) 

STREAMCJ 4 Ba® PRIMARYUSER®0s Ci®PRIMARYUSER® 
DieLanebRee rNX 125 Tos 

BEGIN 
DS tm 9 LIT "CREATOR? “5 
B¢ DS te 4 LrT "NONE"S JUMP OUT To Lo D5 
St +8 Lor C} 
St ote Ssto+ 13 
HDS te 7 CHR} 


%141°08109700 
%141°08109750 
%141°08109800 
%141°08109850 
%141°08109900 
%141°08109950 
%1464*08410000 
%141"08110050 
%141°08110100 
¥141"08110150 
%141"08110200 
%141°08110250 
3141708110300 
%141°08110350 
141708110400 
%141°08110450 
%144708110500 
%447"08110550 
%141°08110600 
141708110650 
¥141"08110700 
%144"08110750 
%141°08110800 
2141708110850 
%141"08110900 
%141"08110950 
%$141°08111000 
¥141"08111050 
%449"08111100 
%441°06111150 
¥141"°08111200 
144°08111250 
%144"06111300 
%141"08111350 
%141"708111400 
141708111450 
¥141°08111500 
$149=08111550 
%141"08111600 
2141908111650 
Z141"08111700 
141708111750 
149708111800 
%149°08111850 
4141708111900 
%141°08111950 
%141°06112000 
%144"08112050 
4161708112100 
%141°08112150 
%141"°08112200 
%141"08112250 
¥141=08112300 
%149°08112380 
¥141°08112400 
%141"08112450 
%144"08112500 
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144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
1414 
144 
144 
144 
144 
144 
144 
144 
144 
141 
141 
144 
144 
144 
144 
141 
144 
141 
1414 
141 
144 
144 
144 
141 
144 
141 
144 
144 
141 
144 
144 
144 


L@s 
Joong 13 2 br7 ™ 0" 
Sy !z )} . 
2 ¢ Si te Sy + 43 NS te 7 CHRE DNS ta IT W/4)d3 
Dr t= DI = 43 OS s:# 4 LIT " OF 3 
2¢ SI :# St + 413 OS #2 7 CHRS NS #8 1.1T "/%)3 
Dt te DI © 43 OS se LIT ">" 93 
Jos nts 
ENN) 


T t&% PS B SAVE DESTINATION ANDRESS. 
END OF nOCRFATORS 
% 
: SUBROUTINE DOSAVEFACTOR3 
BFGIN 
STREAMCA te SAVEFACTOR $ T)3 
BEGIN 
DPS :® 6 LIT "SAVED “3 
St o:® LO AB 
NS #* 3 FCS 
A t= nty 
Nr te nr* 33 
OS ts 2 FILL 
END} 
T te P} & SAVE DESTINATION ADDRESS, 
END OF DOSAVEFACTOR) 
% 
SUBROUTINE DOOPTIONS3 


X eee tara Bene eoeeen 


BEGIN 


FOR 1 ## 0 STEP 1 UNTIL CNUMOPTS = 1) DO & SEF ITF OPTION BIT 


IF ¢TWOCT) AND NFO) # 0 THEN SOPTION SELECTED. 


RFGIN 
CASF I OF 
BEGIN 
NORECS} % CASE 0 © wRECS# 
BEGIN — % CASE 1 = “LAST 
X t= | ASTACCESSDATES 
DODATFORLASTS 
FNND OF CASE 13 
REGIN — % caSE 2 * "DaTE® 
X i PREATIONDATES 
— MONATFORLASTS 
FNn OF eASF 23 
DOSIZE3 x CASE 3 = “SI7E" 
DOSECURITY) % CASE 4 = “SECURITY” 
DOCREATORS % CASE 5 ™ "CRFATOR” 
DOSAVEFACTORS % CASE 6 * "SAVE® 


END OF CASFS! 


STREAMCT 1 7)! % PUT COMMA AFTER LAST OPTION, 


BEGIN 
DS :8 2 LIT “es 3 
te nts 
FNn} 
T pe PY 


END Of LOOP To PROCESS OPTYONS3 
END OF DOOPTIONSS 


¥141708112550 
%141"08112600 
%141"08112650 
%149"=08112700 
%149°08112750 
%141"08112800 
%141°08112850 
%141"08112900 
%141°08112950 
%141°08113000 
%141"08113050 
$149~08113100 
14408113150 
144908143200 
2144708113250 
%149"08113300 
%141°08113350 
%141°08113400 
%141°08113450 
141708113500 
%141°08113550 
%141"°08113600 
%141"08113650 
%144"08113700 
%141°08113750 
%441"08113800 
%141"08113850 
2141°08113900 
%141°08113950 
€141"06114000 
SET. 08114050 
%141°08114100 
2441908114150 
2141°08114200 
$141°08114210 
%144"08114250 
%144"=08114290 
%441°08114300 
%441708114310 
%144°08114320 
%141"08114340 
%141°06114350 
%141°08114360 
¥144"08114370 
%144 "08114400 
¥141"°08114450 
%441°08114500 
%141°08114550 
%141°08114600 
%141°08114650 
%149"08114700 
%141"08114750 
%141°08114800 
%144°08114850 
£141°08114900 
%144"08114950 
%141"08115000 
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141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 
141 
144 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
144 
144 
144 


% 
SUBROUTINE MAKETHEMESSAGE? 
RFGIN 
te FOUNDAF TLE THEN % WE NFED A BUFFER, 
BUFF 4#® SPACEC30)3 
PUTINFEILENAMES 
DOOPTYONS) 
STREAMECT)3 % PUT ¥N THE LFFT ARROW, 
BEGIN 
Ny §= DI #93 
OS +* LIT LEFTARROWS 
ENN) . 
ENO OF MAKE THEMFSSAGF? 


SUBROUTINE COMPLAINS 
J meee eenan See eras 
ReGtN . 
STREAMCBUFF)3 ; 
OS ts 8 LIT * NULL “3 ¥ ORIGINAL INPUT 1S AT BUFF + 14, 
SpOUTCBUFF)3 
EnD OF COMPLAINS 


SURROUTINEG FORGFTFVFERYTHINGS 


J ween te eee FER PRO He De 
BEGIN 
IF HFEANDERANDRFSS #¢ 0 THEN FORGETSPACFCHFANERANDRESS)3 
IF LaRFLRee # 0 THEN FORGE TSPACECLABFLREC 93 
FND OF FORGFTEVFRYTUINGS 


%141°08115050 
%141°08115100 
%141°08115150 
%141°08115200 
¥141°08115250 
¥141°08115300 
2141708115350 
%141°08115400 
2144°08115450 
141*06115500 
7141708115550 
3141708115600 
%141°08115650 
%141708115700 
%144"08115750 
%144"08115800 
%141"08115850 
2141°08115900 
£141=06115950 
%141°08116000 
%141°08116050 
%141"08116100 
%141°08116150 
%141°08116200 
%141=08116250 
%141°08116300 
141708116350 
141708116400 
£144°08116850 


Peteeeteteeeeekacenee § TAR T OF COD EF Fee eee eee Ree eee EHR LL 6500 


GFTREANYS 
GETFILESPECIFIERS 
PROCESSOPTIONLIST; 
GFTSETS 
WHILE WFGOTAFILE DO 
IF WEWANTTHISFILE THEN 
BEGIN | 
MAKE THEMESSAGFY 
SPOUTCRUFF)3 
FOUNDAFILFE t# TRUE? 
END) . 
1F NOT FOUNDAF TLE THEN COMPLAINS 
FORGETEVERYTHINGS | 
END OF PRINTOIRECTORYS 
LARFL FOUNND*FIRFITUPSQUITS 
FND ELSF % Q<0+ PR MT 
BEGIN RRRMFCH*TWOCU*ABS(@)) OR RRRMECHS 
LABELTABLFECU) « 
PRTATINUCVJ£6#308198)20010114315)3 
MULTITABLECV] « Pre 
LABELTABLErV] « PBT&TINUCUT(6s 3081898 
P2yretagtsys 
GO FIRFITUPS 
END 
SVOIDT 082646501 


$141"08116550 
%141"°08116600 
%141°08116650 
141708116700 
%141"08116750 
%145°08116800 
%141°08116850 
%141°08116900 
%141°08116950 
%141*08117000 
¥144°08117050 
%141*08117100 
141708117150 
%141"08117200 
2717708255800 
%717°08259800 
3717"08259810 
3717°08289820 
¥717"°08289830 
%717"08259840 
%717°08289850 
%717"08259860 
3717"08259670 
%717"08259880 
%717°08260899 


SHEAT + (MCF IS TYPEDSPACE( 31s SHEETAREAV+64))1830(51ZE) 08274250 


SEGO 1% TYPEDSPACE( 30sSEGZEROAREAV464G)3% 


®155°08275500 
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141 
141 
141 
144 
141 
144 
144 
141 
141 
1414 
144 
144 
144 
144 
144 
144 
141 


14t 


144 
144 
141 
144 
141 
144 
144 
144 
144 
144 
144 
144 
144 
141 
144 
141 
144 
144 
141 
141 
141 
141 
144 
144 
141 
144 
717 
717 
717 
717 
T17 
717 
717 
717 
Ti7 
717 
717 
155 
155 


SHEATF24)1=MCP3 %129°08276365 

CNT! StesSreits BresSts IF Ste” "© THEN GO TO CNTSTALLY#803 08291125 
CisTYPEDSPACECSesMAINTBUFFAREAV) 3% %155°08385100 

BEGIN Rte TYPFNSPACE(CS»MAINTBUFFAREAV) 3% %155=08410000 

T w CCCLOCK#PCRTR)) DIV 60),631817) = %644"08533000 

IF TeO THEN T « T + @4000003 %640°08533150 
LOs SIeBUFFs %535°08634000 
Lis IF Sc" * THEN BEGIN SI*#SiI41: Go TO Lis ENDS %535"08635000 

Ir Sc<"0" THEN %535"08636000 

IF Sc#"e" THEN : 535708637000 

RFGIN YTALLY*O3 TeTALLY$ nireLoc Tr %535708638000 

BCrF Sc#™ " THEN JUMP OUT eLSr 535708639000 

IF Sce"e” THEN JUMP OUT FLSE %535"08640000 

TF Sc2"0" THEN JUMP OUT FLSE DS#CHR)3 %535"08641000 

BUFF SST STeOPTERS %535=08642000 

63(DreLoc TI %535"08643000 

Ip 8 SCeDC THEN JUMP OUT TO Lo ELSE 253508644000 

Ip Sce"e" THEN JUMP OUT To LO ELSE TALLY*TALLY41)108645000 

GO To L33 %535=08646000 

Ls IF Scete” THEN GO TO LO %535"08647000 
ENN FLSE 53508648000 

L3t TALLY«48 ELSE %535"08649000 
BEGIN NTe#LOC Ts St#Sr+13 %535°08650000 

TF SeeO" THEN RFGIN SteSfels DSel OCTS FNN %535°06651000 

ELSE BEGIN StieSte13 08.2 OCT FNDS %535=08652000 

TALLYo47! TCTALIYeTALLY46393 %535"0865 3000 

ENDS . %535"08654000 

T+TALLYS SteLOC Ts DreRs OSeWDS!: %535=08655000 

$ VOInT %535°08656000 
150# % SEGMENTS PER ROW %¥560"08699150 

OSn# ¥ PHYSICAL RECORDS PER ROW %560°08699350 

1090#% PHYSICAL RECORNS PER FILE %560708699500 

IF Sce® " THEN GO Lis ENDS. %534°08739000 

TF Seete" THEN REGIN SleSlots GO L53s ENDS %534"°08739500 

; TF Sewte” THEN BEGIN TALLY«i3 GO EXITS ENDS %534"086749500 
SterMeTYPENSPACE C31 »SHEETAREAVII) & 30fSTZEI]¥Y %155=06881000 
DLNKS=sCMCTYPEDSPACE C31 e¢SHEETAREAV)I) & 20fSIZFI3% %155°08930000 
INTRNSC #8 CMLINTLOCAPGETSPACECMAXINT#+T47S1ZFe INTARRAYAREAV!1942I]& 09506000 
BFGIN WAITSTORF(O)3 STOREDYCO%0)3 %202"09617000 
STOREDY¢0,1)3 %202"09624000 
OKSEGZFEROWRITE se TRUES ¥203°09645999 
OKSEGZEROWRITE: @F ALSE3 %203°09656001 
STREAMCRASE)S BEGIN 3CDS*LIT"O"S Dilenie7)3 ENDS ZAQ3I"GRK 09680450 
OKSEGZEROWRITE SS TRUE? %203"09682609 
OKSFEGZFROWRITELSFALSES 203709682611 

IF T < @20000 OR Tt > 8100000 THEN 151709916000 
BEGIN RDCTARLEPUNTITI:PBI63e03 %539"1252B8400 

END %53912528600 
STREAMCMTX*TINUCUNIT] ePRN©PRNTARLECUNTT3e(309181]+8517"GRK 12530010 
NeTeSPACEC10))3 Z517"°GRK 12530020 


BEGIN SleLoC MTXp SiteSle5s OSeBLIT*#PBY ON 59%51712530030 
DS*3cHR: OSe#7LIT" Rw/L es DS*SorC! £517 12530040 
NSe2LIT*)6"s Drenr"7) nSe4FILL} ZS17"GRK 12530050 


ENn STREAMS Z51i7"GRK 12530060 

SPOUTCT)3 Z517°GRK 12530070 

IF HEANFER.E CE] GFO 64 THEN FORGETSPACECHEANER)3 %156"12561600 

SVOTDT %156°12572000 


129 
122 
155 
155 
644 
644 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
535 
560 
560 
560 
534 
534 
534 
155 
155 
155 
202 
202 
203 
203 
403 
203 
203 
151 
539 
539 
917 
917 
917 
917 
917 
917 
917 
156 
156 


$VOIDT 
P 
ELSE 


$VOINT 


BFGIN TF CTOnt#=T,79824) DIV 5940 THEN &%SPACE FORWARD 


Bis(G 
SPOUT 


$VOINT 1272750 
SVOrDT 1273950 
LOGINFOtesS 
RDCTABLECV) 
IF IN 

BEGIN 


ENN} 
$VOIDT 1421808 


DFEFIN 
REAL 


(4) 


IF (NTOs2P)e02¢1] THEN SLEFT AY 12626500 


ETSPACE (91, TOBUFFFRAREAVe1)4#9) & SOCSIZEI3% 
ITCLOGINE OP 
649} 
1 
1 
AVEARRAYDFSC( 20 +LOGAREAV)$% 


eCa7tLICINmPECLOIE"FULL PGES % LINES6« OPTION 


CWeloF1<@1777 THEN % SOMETHING VERY WRONG 
JARCPIMIX,6],f1¢L1]e13 % Sp BrT 


%156"12573000 
2154"°129573500 
%156°12574000 
%162°12635500 
%167"°12638000 
%162"12650500 


%155*12672500 


Z509"GRK 12704000 
B509"GRK 12704100 


%140°12726500 
%140"12728500 
%155=129848500 
¥724"712860100 
%602"14015200 
%602"14015210 


FILEMESSC#"SEE TSS"9” PATCH "2802090002602 )8KLUGE MSG8N814015220 


i . | . 
Te ANTCAIT£OII.£C8#10}) Ne@ 1 THEN 
BratNn 
Tis 4} 


WHILE AITF13-68340) &= 4 Dn Liles 
FoR JisAIT£CO] STEP ef UNTIL I DO 


AITCU+1 SZAITOUYS 
END ELSE TesalTCOlets 
ATTLCOJ reePCOUPD + 13 
ArTrrisewciarrhs3brioljs 
FE HARRYSTA = WORKERSTACK(S 
CPUIOR4143 


CeltFkr 
#, 


M F1)} 
] STA 


% 


SUBROUTINE CLEARALLTANKSS 
BEGIN CLEARTANKCLOGLINE,O93 
TANKSEPSeLOGLINE ,.C40t8})tatePcnuP)da0rctcr3 


IF WORKING THEN 
IF HARRYSTA = 1 THEN 


% MAKE SURE HARRY ISwnT 
% DIDDLING oUR LINE 


COMPLEXSLEEPCNaT WORKING OR HARRYSTA # I)3 


CLFARINPUT 
TANKOKE YT) 


ANK3 
ts 03 


END OF CLEARALLTANKS$ 


PCOd3 


BZFRO OUT CPUIO 


1F LOGLINe.f 3387) #€ :O AND PIMEX # CANHYINX THEN 


CLFEARALLTANKS? 
1 te OF & ReerNtTrALrZE FOR CORFE SEARCH 
CiEARALLTANKS3 


SVOIDT 14367035 


NTLIEGETSPACECS»sMAINTBUFFAREAV+H 4009423 
CPUIO*GETSPACEC100001 423 


MCCPULOF2N¢VFCTORIO)! JOB PREFIX 
MECPULOF3TeVECTORE 1): JOB SUFFIX 
MeePuyOedrerys JOB MrxX INDEX 


%602714015240 
%102°14218071 
%102"14218072 
Z102"{4218074 
%102"14218076 
%109°146218078 
%107"14218080 
%10271421808? 
102914218084 
%¥102"14218086 
%102°14218088 
¥158"14344100 


Z504"GRK 14351306 


%151°14351440 
2151°14351445 
%151°14351450 
3157914351455 
¥151°14351460 
%151°14351465 
%151"14351470 
%151°14351475 
%151°14351480 


S504"GRK 14355060 


%151°14360510 
%151°14360520 
%151°14360530 
%154°14367024 
¥151°143670292 
2155"14411820 


2504"GRK 
%504°GRK 
B504"GRK 
B504"GRK 


MPCPUSOsS16C CSCI JeNEXTMOM)4309D4V 603 CPU TIME £504"G6RK 
MPCPULOS63e(CCSE2ZIeVECTOREGI+10TIMFEIJ94+30IDIV 603%504"GRK 
MrePULOse7eSr3}oCLClrIeSCLL Ix CHUNKZIZE+CHUNKZIZE3 2504 


SPOUTITCVECTOR INX Op 


%509"GRK 


IF NOT ¢ ¢MECPUIO43) EQv wDIS« ")aeNOT 0 AND%509 
C CMECPUTO49) FOV "PRNPBT *")eNOT 0 0R¥50914430004 
CMECPULO49) FOV MLOCNTRL™I#NOT 0998509 14430006 

THEN CCLINK OR CANDYMESS) aND EOUMFSS ®509"GRK 14430008 


14413020 
14413030 
14413040 


14413050 
14413060 


14413070 
14413060 
14430000 
14430002 


& 
= . AND CNOT JAR9).E28t] OR E0UK) %509"GRK 14430010 pn 509 
_ ELSE @FOUK)S Z509"GRK 14430012 ph 509 
r STREAMCTecPUIO)3 Z504"GRK 14430034 pn 504 
BEGIN DSe*SLIT" FOR "$s Sy*CPUTO3 StTesStei73 E504"GRK 14430032 bp 504 
DSe7CHRS DSeLITP/"3 SreSteit OSe7CHRS Z504°GRK 14430033 D 504 
e DSe,1T*E"$ DSe2DECs reDYs DleDI23 Z504"GRK 14430034 D0 504 
OSerILLs Drels DOSeSLrT*sPSTS%3 DSeSDECS F504"GRK 14430035 p 504 
TeD13) DreD1eS5s OSe4FILLy Diets Z50G"GRK 14430036 D 504 
@ DSenLIT™sIOTH"s DSeSDECS TeDIy DleDI=5s X504"GRK 14430037 D 504 
OSeaFILL$ Diels DS*6LIT™*#COREm™3 Z504"GRK 14430038 D 504 
DS*5DECS TeDIs DleDI@53 nS#4rILus Z504"GRK 14430039 504 
e Dlers OSeLIT%e"s Z504"°GRK 14430040 pn 504 
ENN STREAMS Z50G"GRK 14430044 fh 504 
SPOUTERCCPULORUNTTNO,64)3 B504"GRK 14430042 ph 504 
e , TF UNTTNO¢O THEN Z504"GRK 14430043 pn 504 
TIimGETSPACE C12, CONTROLCARDAREAV46450)443% 15514533000 npn 155 
JARIMIX®G1,CItt lec CTYPERS) OR CTYPER19))3 BOSeBsSDa90CLH19 2410 16212100 0D 410 
e Sand JARUMIX06), CisiLlecCTYPER9) OR CTYPEF1999$3 20SeBrSDF99CL B19 Bain 16216000 Nn 410 
SeHEMLOOKCKTR, TyPer?) % FSe6, XSa7 %¥104"16651000 17 104 
SEG tm 'F MERISAREATYPEF @ CODEARFAV THEN MERiJ.fCF) ELSE 03 16853000 0 155 
eo ELSE PCMER*DJ,AREATYPEF ®DUP) # TYPETINTAREAV AND PCXCH) # 158°16854a20n D 155 
TYPFI3INTARFAV) OR LON & Oy %155°16854300 nn 155 
Real BUFFs KTR» TYPE, MtXe Ae Ye Je Ko To %801*16951600 n 804 
& LAREL RESTART? 3801716951950 D0 604 
BUFF @@ TYPEDSPACFC60*KEYINBUFFAREAV) + 13 %155°16954200 0 155 
RESTART! %B01716934450 fh B01 
e TYPE « KFYINSCANCKTR, MIXDE Z801"16954502 pn B01 
TF ¢CPROCRNe TYPE (F1t5y)2t AND CCTeTYPF, CcFJ)=#8 OR T=VCC %804"16954504 pn 804 
OR 1233 OR 1834) OR ¢PROCED®O AND leq) THEN Er. SE % SSoCCeOCeFE AX 16950506 AM B01 
e BEGIN 801716954508 D 601 
STREAMCKTReI3)3 2601716954510 DO 801 
BFGIN SY#KTRS %801°16954512 p 601 
) BCS6OCIF Scw""" THEN 801716954514 Nn 804 
RFGIN Le SyeStals 801716954516 mn 804 
63¢StreSt4is tr ScR""’" THeN JUMP OUTS %601°16954518 nh 804 
e ; IF Scate* THeN JUMP OUT 3 TO YECH)s 16954520 pn 804 
S$1eStet} %801=16954592 DN 804 
IF Sce""" THEN Go TO 1,3 %801"16954524 DN 601 
) END? : 2801°16954526 D 801 
Tr Sewe"e" THEN JUMP OUT 2 TO YEeHs %801"16954528 pn 804 
tr Ste "3" THEN 804716954530 np 601 
e BEGIN z %804"16954539 DP 804 
I*SIy TALLYo!s ¥801°16954534 D 801 
nrer) mselir "eM 801716954536 np 801 
e Xt SyeSest! te Scas" THEN a0 To X3 reSz3 %601"16954538 pp 804 
JUMP OUT 2 To YeCH) 801716984540 D 804 
ENDS Stest41))3 %801*16954542 fh 601 
e YrcHt KTReTALLYS %801°16954544 Hp 801 
FNn STREAMS 601916954546 np 804 
TePS IF P THEN %601"16959548 604 
ry STREAMCI + TeTeGETSPACE (62209034393 3801716954550 D 804 
BEGIN 801"16954552 D 801 
Stes 8017169540584 nN 801 
r) BCOOCIF Scm™+" THEN JUMP OUT 2 TO L FLSE DSecHR)D2 LinSeL1T%9"316954556 7 B01 
FNn STREAMS 801716954558 pf 801 
FNn CHECK FOR KryIN RECYCLES $801"16954560 nh 804 
) IF PROCEN@7 THEN GO TO TBLERR? %801"16954600 PD 8604 
& 


IF T>O THEN % ANOTHER MESSAGE %B01"16969710 
BEGIN 801716969720 
BUFFeTs TeO3 %801%16969730 

GO RESTART? %801"°16969740 

END? %801°16969750 
BEGIN TeVWYRVOKE3AEA2I6IRCVIF ACL 3812 CF 308A 2tGI$ Z519"GRK 18025000 

WHILE NOT TOG nO | %815°18031400 
COMPLEXSLEFPCCeLOcK ANN @17777)20 OR 70q)3 %815"18032000 
SLFFPECFCLOCKIPNOT CLOCK)3 %815~18032040 

TEMP + F & K FCTFYS — 148°18273055 

FHeeCMCF SS TYPENSPACECTFMPehISKHEANFRARFAV)I) & TEMPCSIZEI3% 18285200 

FH te PMPETETYPFNSPACEC30,NISKHEANFRaRFAV)1) & 30 SIZFS %155°18286000 
STREAMCA,B,TieT leGFTSPACEC10sCONTROLCARDAREAV4+64,0)44)3 18438120 

TIEsGETSPACE CT +5 eCoNTROLCARDAREAV+t6400)+a5% %155"18520300 
LABEL PEeTEsPArLLys 2143°18701010 
SWITCH S 83 LLoPAsPEsTEsIT#USsNeTDOPReLOTe TMRsADOWDS 2143°18701100 

cis If CY4s314 ) > ("65 AND I4 < 6 THEN %143°18710100 
RBFGIN GO TO SC1446]3 %143°18710200 

LLs 14 te LOGLINeG. 6402833 GO TO INITIATES ¥143"18710230 
Pat %136°18710240 

& SET OMIT = NOTCPACKETS) %136°187102490 
TE CYLSePSEUDOMEXPPIMIXI) GEA 32 THEN 4136716710244 
TQSePACKETACTII*3973 %136"18710246 

$ POP OMIT %136"18710248 
GO To INITIATES 3136718710249 

PEt : %136718710250 

$ SET OMIT = NOTCPACKETS) 2136718710252 
TE CTESPSEUNOMEXEPIMIX)) GE@ 32 THEN %136°18710254 

BFGIN %136"18710256 
I4s=PACKETERREI"32]3 %136°18710258 

PacKFTERRe *32)32TRUE 3 %136°18710260 

ENDS ¥136"18710269 

$ POP oMmrT %136°18710264 
GO To INITIATES %136°18710266 

TE! %136718710268 

$ SET OMIT ® NOTCPACKETS) %136°18710270 
IF C1LESPSEUDOMIXCPIMIX]) GEQ 32 THEN 2136"18710272 
Tas*®PaCKETERRE I "3273 136718710274 

$ POP OMIT. . %136°18710276 
00 TO INTTIATES 2136°18710278 

Wnt T4eWEEKNAYS GO TO INITIATES %753"18711500 

If 14 8 (#6) THEN 14ePyMIX3 %753"18711690 
STREAMCPIMIXsTeR5xR6sAel@SPACE(7))3 2549"18790600 
BEGIN DSel.1T "73 SteLoC PimIXs BZSpPOUT "2 NOT "#", ZGRK"549 18790700 
REPLYCPIMIX),CCF] «© 33 %549"18791200 

Joe ty %549°18791300 
SVOTOT 18791701 B549"18791400 
WATTSTORFCPIMIX)S STORFNYCPIMIX2093 %202°18641400 
STORFDYCPIMIXs1)3 ¥202°18843500 
WAITSTORECPEMIX)S STORENYCPIMIX20)3 %202"18843800 
STORENYCPIMIXe193 % FREE MEMORY TO ALLOW "ARTN" TO rE BROUGHT IN %202°18845000 
LARFL TPCFRRS %$145"°19504100 


Ne ToSLOwsC34eC359C36se¢37e TW. TWeC4Oecai eI PCERR, 19508400 
MPCFRR,IPCERReIPCERR,IPCERRetPCERR»TWeSLOW) £145°195082900 


BEGIN STtsLoC ad DSte8 DECS DStee LIT & of sy %149°19559120 
Ois#DI"10; OSt#B FILLS AteDTs ®149°19559140 
Dis*Ts SteFas OStzi0 CHR 149719559160 


VuN eI T Vv se9V coVvv Vsuou_uvdIIVI VeVv CV VVIN VV 893BVV VON VG V vag V9 V0 VIAIT VseVI VIVIe0CTN ITD 


804 
804 
804 
804 
801 
519 
815 
815 
815 
148 
155 
155 
155 
155 
143 
143 
143 
143 
143 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
753 
753 
549 
549 
549 
549 
549 
202 
202 


202 


202 
145 
145 
945 
149 
149 
149 


® 
‘ 
: TWXOUTCTe 100081 CTRIair2ra7ti1d,R6)3 %¥149"19559200 
IPCFRRI TERMINATE CPIMTX)3 %¥145°19575000 
TERMINALMESSAGE (96)3 %145°19575100 
S 13 UMFTYPFDSPACFC31sSHEETAREAVII) & 3006838r10]9% %155°20026600 
HnR t= GFTSPACE(C30en!ISKHEADFRAREAVe1) +23 %155°20028700 
$ SET OMIT = PACKETS %163°20034060 
FLSE FORGETSPACFCHDR)S ¥163"20034070 
$ POP omIT %163°20034060 
FpB tm TYPEDSPACE(SFGOr5) INX 1+ FPBAREAV)? %155°20049000 
FRESGETSPACECSEGOL7 eC CF IXETRUNG*FPBAREAVe1 +23 %155°20049800 
LALI*ARRAYDESe ( 30*LBLFQNAREAV)3% #155"20059100 
LBLISARRAYDE SCC 30sLALEQNAREAV) 3% %155°20089800 
SPOUTFROTSUNTTNO, Z509"GRK 20104200 


TE NOT ¢ CJAREMIXe1] FAV "DOSK ")sNOT O AND Z509"GRK 20104300 
C ¢JAREMIXs07 EQV *PRNPRT "5eNOT 0 OR £509"GRK 20104310 
CUAREMIX20) EQV MLOCNTRL™yeNOT 0) 9 %509"GRK 20104320 


®@ 
® 
@ 
 ] 
rd] 

THEN eceNnOT St0}),f281) OR CANDYMFSS) ZSO9"GRK 20104330 

& AND BOJMESS AND I OR BOJK) ELSE =BOUK)3 Z509"GRK 20104340 

SEGO?BARRAYDESC¢ 30»SEGZEROAREAV) SS %155720110400 

: SINFOCMIXI,(CCFE1 t= (STACKLOC 82 %155"20116100 

e GETSPACECSEGOE3) INX Sf91) INX 64s STACKPRTAREAVs 19) # 23 20116200 

WAITSTORECMIX93 STOREDYCMIXe0)3 %202°20119300 

STORENDYCMIXe Log. _ %202720120300 

e TRPPFAJtarMrT iene TSPACECSEGOLILILICFIeSFGNICTARFAV#1)42)33 ¥155°20124900 

STREAMENteNDALOCROWF MIX TE wSAVEARRAYDESC(DALOCSIZreDALOCROWARFAV))3% 20127300 

$ VOID . %955=20127400 

@ STREAM(CD t# UVSPACE tm TYPEDSPACECUVSIZFeUVROWAREAV) D3 %155"20156800 

BFLOW t= ¢8723,78t101]25) OR ITSALLBATCHS ¥151°20163200 

MrHDRe2) §= C*#PCDUP)) & JARROWAREAV AREATYREFS & %155"20169700 

@ STREAMCQPSFSROWEMIX TIE RSAVEARRAYDESCC4sFSAREAV)) 3% %155°20183610 

TRPLIIISOM(GFTSPACE (1) oF PRAREAV94)49]) ELSE &% %155"20187400 

FORM = 75#e% SWITCH DCPCOO"FORM™@"SPECIAL® %846"20240000 

e . LINFS66 — = 77%. ®% 66 LINES PeR PaGe %724"20240020 

AFGIN Lanrl TRYAGAINs | %172"20289030 

HEADER 2)teHEADERP SI 8 eMCPS %129"20289113 

e HEADEREAIIFORCM1NO1 IE DE SBN1OI8SYSNOC At ab6i2)) %107"20289115 

SIs*CARD$ DSi®9 WOS?! 129720289240 

MERUF+87]3eMcCPy %129"20289252 

) $ ; ; %172°20289330 

Xte6t MeBUF ea 7) be 03 %172"20289335 

STREAMCCARDLOC)3 %890"20374401 

e BEGIN SI*CARDLOCS 890720374402 

2¢36CIF SC#">" THEN - %890"20374403 

BFAIN CARDLOCeSIINTHCARNLOCIDSe LIT "se" ENDS 889020374404 

e TF SCe"2" THEN ; %890"20374405 

BERIN CARDLOCeSIIDIeCARDI.OCIOS. LIT """ ENDS %890"20374406 

StoS14119) 2890"20374407 

e ENDs) | us %890"20374408 

CYF KOUNY » “=” THEN FQUAL feLSr x THrS 1S aS IN SYMBOL 20380000 

LDUMMY, %846"20392870 

@ LLINES66s &% %720"20392880 

LRANDOMe %603"20392890 

SWITCH D*LFORMe %603°20394000 

) LIAUMMY » 646720394070 

LLINES665 ¥724°20394080 

LRANNOM, - %603°20394090 

) LNOsLDISKeL TAPE» LPUNCHs LPRINT®LPAPFR, %603"20394900 
@ 


SO Vv7d 98909 09 99 Sv IVI VoVI VV VII VIseV VG eT V=esvIV VVVIVI VG VveV—0GV VGBVVN VoeIMNVOITSZ 


149 
145 
145 
155 
155 
163 
163 
163 
155 
155 
155 
155 
509 
509 
509 
509 
509 
509 
155 
155 
155 
202 
202 
155 
155 
155 
155 
151 
155 
155 
455 
846 
724 
172 
129 
107 
129 
129 
172 
179 
890 
890 
890 
890 
890 
890 
890 
890 
890 
846 
724 
603 
603 
B46 
724 
603 
603 


LDUMMYS | TPNOe113 & * FORM SPO” = DUMMY FILE 
TPNOo123 G40 TO OSkKCHECKS & “"DTSK" MEANS DISK SERIAL 
BFGIN TPNOe243 TF TYPESCOPYN THEN BEatN 


TPNOe#223 GO 1.COPY END E|.SE 
IF SCAN#BACK THEN GO ERRORS. 
END3 
IF TYPESCOPYN THEN BFGIN TPNO#223 GO LCOPY ENn FLSE 


LLINES668 & 
FQNCO} «© “FULLPGFE™ 3 &SET UP MFIN FOR FULL PaGr 
BFGIN TPNO#43 IF TYPFSCOPYN THEN BEGIN 


END 


IF 


TPNOo153 GO TO LCOPY END FLSE 
tf SCAN#BACK THEN GO ERROR} 
3 
TYPESCOPYN THEN BEGIN TPNO*163 GO LCOPY ENN ELSE 


LRANDOMS TPNO#10s GO To DSKCHECKS 


REAL FR. 


FRRIi 


ERROR? 


svOInT 


ELSE IF TYPESCOREV THEN 
RFGIN X[20] «© TPNO DIV 643 
nO UNTIL ¢10n © SrAND*MAXV OR 1ONePER?O3 
a TODSMAXV THEN PCEX£20)]]°10R) ELSE nO TO DOWNS 
ND 
ELSF If TYPE2>PRIOR AND TYPES<SAVEV THEN 
Xri8sTYPE=PRIORJ*TPNO ELSE GO To FRRORS 
ERO,ER3) LABEL FRSYS3 
ER tats "3% 
OR SYSTEMFILECCMMEO]+CMME11) THEN 
BEGIN FRSYSt Eris®"SYSTEM "SERQSE"FILE *® “: GO ERROR END? 
BEGIN FRise"SAME FIMSER2¢a"LE De "3; GO ERROR END 
TF TYPFRUSFV AND MEOPTN42)<0 THEN 
BEGIN FRIite"SEFURTITTSER28e%Y FILE *SFR3IE% 
BEGIN FRIPe" INVALID" JER28a" USER) oS 
FORGETSPACECOPTN) 3% 
ENN ELSF IF OPTNS2 THEN GO ERSYS% @ LINE 20511190 
FLSr YF OPTNe1 THEN BEGIN ER be" IN USE HSER2E ae 


%846"20451900 
%603"20457000 
%603"20464300 
%603"20461310 
%603°20461320 
%603°20461330 
%603"20461810 
%724°20465050 
%724"20465100 
%603"20470000 
%603"20470100 
%603"20470110 
%603"°20470120 
%603"20475100 
%603"20481900 
%512°20504500 
%512°20505000 
%512"20507000 
%512"20507100 
%512°20507200 
%512"20507300 
%512"20507400 
216420511159 
%164°20541175 
%164°20511188 
1646720511190 
%164"20511303 
%164°20511312 


"3 GO ERR ENN3 20511313 


%164"20511335 
¥164°20511340 
%164°20511363 


* ENN 20511364 


ELSF IF OPTNeO THEN BEGIN ERLI="NOT ON WSERZERMDISKI© " ENDS20511365 


STREAMCAtSPCMMPOJISERISLER1)eBte(OPTNIZSPACE(10))93 
NSt#25 LT "© SECURITY MAINT IGNORED ¢"3 SlseER3% 


3CSTe*Slets MSe?7 CHRIS 


1F T GeQ COPYN ANN T Lr@ LOAD THEN 
OPTNGsCNe PROG 297 9a 03 
IF T GFQ@ COPYN AND T LFO LOAD THEN 


BEGIN YF XLST#O THEN XLST@arMeSPACECXLSTS7!%230)13830(8838110)3 


TI. CA6tt JeHOLD3eCCNREQUAL) 3 
IF HOLD3 THEN PROGECNTI]te-4 ELSE 
IF CN GEQ IDENT THEN PROGFCNTII=ACCUMLO) E1.SE GO POWIES 
Tt CO7ELIeHOLD aC (CNeSCAN) MEQUAL)3 
IF HOLN3 THEN PROGECNT4i]em"i ELSE 
FORGFTSPACFCXLST)3 XLST#RO) 
TF CCNeSCAND@EQUAL THEN IF 71,64681] THEN 
ELSE tf CN GEQ@ DENT THEN TF 174,04684] THEN GO POWTE 
IF ¢CNeSCANISEQUAL THEN IF T1 THEN 
ELSE IF CN GEQ IDENT THEN IF Tt THEN 60 POWIE 
STREAMCASSTOHI.DeBIeTOHLD. £4216374 oCrFTOHLN C4286) #00 
DeelcMmMle7r jigs 
BEGIN 
StemLoc AY SKIP SBE 


%160°20511366 
%164°20511370 
%164°20511400 
2164720511405 
%121°20566800 
$543°20566807 
%121°20566817 
%543"20566829 
%170°20567005 
%543"20569930 
%543°20569935 
$543°20569940 
$543"20569960 
%543°20569965 
%543°20570070 
¥543"20570130 
%543=20570150 
%543"20570190 
¥543=20570210 
%123°20571700 
%123°20571702 
$123"20571710 
%123"20571720 


B46 
603 
603 
603 
603 
603 
603 
724 
724 
603 
603 
603 
603 
603 
603 
§12 
§12 
512 
512 
512 
512 
512 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
164 
124 
543 
124 
543 
170 
543 
543 
543 
543 
543 
543 
§43 
543 
543 
543 
123 
123 
123 
123 


IF SB THEN 
REGIN 
SKIP 39 SR} 
TF SB THEN nSt#6 LrtT*OraST “ 
FLSF 
BEGIN 
SKIP SR} 
IF Sp THEN OSt#a LIT*OSLOW " 
ELSE 
BFGIN 


CeSyrsL_oc Bs 
Dstsé6 LIT"OEU # "3 DSteo DECI 
JUMP OUT TO LOS 
nse2B LIT"ODISK "y 
Le FNN 
END 
END 
ELSE 
BEGIN ; 
SKIP 5 SRE 
NSsmlLrT*O"s HStie7? CHR} 
FND3 
ENDS 
IF XLS¥ NEQ 0 THEN BEGIN FORGETSPACECXLST): XLSTt803 END? 
1F T GEQ_ 64 THEN 
TenTRECTORYSFARCHECMMEO] eCMMFLIBCP CUNT TNO» DUP I=25 
Pexcu)e309F18471419493 ENDS 
1F T GEQ 64 THEN 


CCCOMPILEsO$ 
CCCOMPILE*O3 % INITIALIZE 
CCUNIT#O} S% INITIALIZE 


%123°20571730 
%¥123°20571740 
%123"20571750 
%123"°20571760 
$123"20571770 
%423"20574780 
%123"2057178? 
¥123°20571790 
¥123°20571800 
%123°20571810 
%123°20571820 
%$123"205718630 
%123°20571840 
%$123°20571842 
%123"20571850 
%123"2057 7860 
%123"=20571870 
%123°20571880 
¥123°20571890 
%123"20571900 
%123"20571910 
%123°20571920 
%123"20571930 
2543720573350 
%508°20574917 
OR 20577826 
%508"20577827 
¥508=20577878 
%510"20584340 
%688"20584390 
%68a8°20590030 


BEGIN CARN.(33815] t# TYPEDSPACE(13*CONTROLCARDAREAV) +23 20600950 


IF LOGLING * O THEN LOGLINE « @ UNITNO, 

te PKTONLY THEN 

PPCPROCESS1e03 ¢ 

PROCVAL1203 
CONTROLA! IF (€T < FILEV_OR T > COBOL) AND accuMro] #¢ CMPLR THEN 

IF T GEO UNLOFKV AND T LE@ RESETV THEN GO TO FINIS 
USFRS! TECTiwSCANI#FOQUAL THEN GO INCSC3 
TFCTimSCANI@PERTO THEN GO INCSCE 


%109°20602502 
%106720602515 
%169°20602855 
%126°20602860 
%527"20604300 
%527°20604350 
%131%20605700 
%131°20605702 


PCDIRECTOARYSFARCHCNABSCCMMCOJ 0 IF CuMro}<0 THEN "DISK ” ELSE 20606865 


IF UNTTNO>32 THEN CIDROWCUNITNO"™32).0325328"0 ELSES 
1F UNGTTNO#23 THEN ReanrRas Cre ls*0 FLSFS 
1F UNTTNO#24 THEN READERA PEF IEROFS 
IF CT2pACKET) AND CTSRESETV) AND CT#RUNV) THEN 
IF ZIPMIX NEQ a THEN 
IF CTemPSFUNOMEXEZIPMIX]) GFO 32 THEN 
PACKFTFRReTe32.tmTRUES 
IF ¢TieSCAN) © ENDFI THEN 
GO To PACK93 
$ VOINT ‘ 
$ SET OMIT @ NOTCPACKETS) 
IF PSEUDOTUNITTNO#32) = O THEN 
PRINTTHECOVERCCARDLOCeUNITNO*PSOURCE)3 
$ POP OMIT 
BOOLEAN FT@N3 DEFINE FHCFHS@MET+FH1I#3 & RESET FILE A/B 
SUBROUTINE CLEARTHEFILEs; % CLEAR AN JN*USF FYLF 


%169°20606900 
%169"20606910 
%169"20606920 
%3527%20608078 
2138720608112 
%138"20608114 
213820608116 
%127™20688740 
%127"20608760 
%127°20608800 
%106"20609428 
%106*20609430 
¥106"20609435 
%106"20609440 
¥815"20704100 
%815"20704200 


9O9 V0 0929 0070 7979 900 39 97009 9590 97597797 "20 C00 79 200 S09 079 "0 0007797 070909 20 0 70 C_0C_"7 TJD39I VO 


123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
123 
543 
508 
508 
508 
508 
510 
688 
688 
155 
109 
106 
169 
126 
527 
527 
131 
131 
407 
169 
169 
169 
527 
138 
138 
138 
127 
127 
127 
106 
106 
106 
106 
815 
815 


BEGIN : 
FHF4) £01 tO6)- 
FHA). £F16820J~« 
FHr9],f0139B8)-¢ 
NISKWAITCT. ECF 
FILEHOLOCCMME2 
LBMESS¢CMME2J» 

ENn CLFARTHFFILEs 
CCSFET¢03 
1F CN#ACCESSD 

IF NOT ¢FT 
BFGIN Te? 
BEGIN 
$ VOotnT 

$ VoInT 

$ VoInT 

END ELSE 
$ SET OMIT = SHaRF 
UN 

$ POP OMIT 


LBMESS¢CMMP27eCMME370"0114T0R) 041002 SPOUTUNTT»1)3 


03 % FXCLUSIVE 

Os % OPEN COUNT 9? 

03 ¥ ToGS & OPEN COUNT 4 
1e30,T,CFFI)3 ® FIX +T 


JeCMMEC37200eT+093 & WAKE Up WATTING PROCESSES 


CMMOC3)591926e0eSPOUTUNI Tel 93 


THEN 
*FXTOGeCCNEFILEV)) THEN GO To CCrRRS 
} GO TO Lis FND3 

FORGFETSPACECT)$ Te1s GO SK+P$ ENnS 


IF FT THEN CLEARTHEFILE ELSE BEGIN 
Disk. 
LOcKnrRecrToRy}3 


END3 
FORGETSPACEcT)3 
ELSE BEGIN 
& SET OMIT @ SHAREDISK 
UNLOCKNIRECTORY) 
$ POP OMIT 
ENN} 
SVOIDT 20772301 
FIFLD MAYRFWORKEDON s& (731)3 
LaRnel STARTS 
X t= 0104; % THrS +S THE CODF Wr WILL PASS TO 
% GETSPACE THE FIRST TIME, IT REQUESTS 
% OVERLAY MEMORY FOR THE MCP AND THAT 
% WE WANT TO BE RETURNED TO ON A NO 
% MEM, 


START? 


IF NOT M£S),MAYBEWORKEDON THEN & WAIT TILL OTHER GUY 


BFGIN 


BR BQ BA DR BE AQ dQ 


SLEEPCEMES]]+0 x TRUE CMAYREWORKEDONI D3 


Z be ¥,r8910)3 % SIZF OF PROCEDURE IN WORDS 
MUESJ.MAYBEWORKENON 38 FaLSer3 


%815"20704210 
%845"20704220 
%845"20704230 
%815"20704240 
%815°20704250 
2815"20704260 
%815"20704270 
%815°20704280 
%510"20711100 
%815°20714000 
%815"20714500 
%524°20730000 
%524*20739000 
%521°20739100 
$521°20739200 
%815"20768000 
%815"°20769000 
521"20769100 
%521"20769200 
%524=20769300 
%521°20769400 
%521"20769500 
%521*20769600 
%521°20771000 
%521"20771010 
%521°20771020 
2521720771030 
%521"20772050 
%529"20772100 
£153"21015100 
%153"21015200 
153"21015400 
%153=21015500 
%153°21015600 
%153"21015700 
153721015800 
%153"21015900 
IS 0021016000 
2153721017000 
%153"21018100 
%153"21018200 
%153"21018300 
%153"21018400 


NOW WE WILL ATTEMPT TO GET SPACr FOR THIS MCP PROC: 24048500 
IF WE FAIL WE WILL WAIT FoR A SrCOND AND THEN TRY 24018600 
AGAIN, THIS ENSURES THaT fF WE GET DS@ED WHILE %153"21018700 
SLEFPING WAITING FOR MEMORY WE WILL NOT LEAVE THE 21018800 


TOGeLF LOcKFn UP FOR THIS PROCENURE, 


TF CT#meETSPACE(7s655X%)42) # 2 TUEN & NO MeM 
BEGIN 
MESJ,MAYBEWORKEDON t® TRUES 
X,f4611] t# TRUES & DONT PUT OUT MESSAGE 
SLEFPCEeLOCKI,NOT eLOeK)s & WarT A SFCOND 
60 TO START} 
END) 


%153°21018900 
%153°21019000 
¥153"21019100 
%153"21019200 
%153°21019300 
¥153"21019400 
%153"21019500 
%153°21019600 
%153=21020000 


MCS) 1% C#PCDUP)) &@ T £€CTC) & TRUE CMAYBEWORKEDON]$ 21024000 


815 
815 
815 
B15 
B15 
815 
B15 
815 
510 
B15 
815 
524 
521 
524 
524 
B15 
815 
521 
524 
521 
524 
521 
521 
524 
524 
521 
521 
524 
521 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 
153 


STOREDY(C020)3 


STORFDY(COs1)3 
NTVeCSLNEMIXIxX30 + COUNTEMIXIX14 = NT1)x8B 4 2083 


%202"21032000 
%202"21093000 
B991"21111540 


IF PRTROWEMIX].°PSF)"3 THEN PRTROWFPMIXI,CPSFI«O3 ZUCSC KLUDGE 21212010 


TtaGETSPACE C30, JARROWAREAVQMIXICTE J 64 423 
TEaGETSPACECUVSIZF »®UVROWAREAV&MIXFCTFI,1)493 
TIMELIMTTMAX « 3600 x S + $8000 3 8.03 


%155°21304000 
%155°21308000 


BAOL"GRK 22013130 


SHEAT telMPF te rTYPEDSPACEC31*¢SHEETAREAV464)1) & 30LAR83Rt1073% 22069050 


SEGO $= TYPEDSpACF(30*SEGZEROAREAV+6a)4% %155°22069100 
SHEATC2Q]25MCPy %129°22069212 

NO UNTIL CTLeWATTIOCAREA INX ®3400000120755U))#03 22112000 

IF 7¢4,.04382340 THEN TLeWAITIONCO4D000000005sU)3 2697927112100 

$ VOINT %992°22199000 
PAPFR! LABFLTARLFIU) © MULTITABLETU] «© "PRa "4 %992"22201200 
RncTaRbLeei) « @1000000003 % ReFl. NRL = 1 %992"22201400 

GO TO COMMONS 299222261600 

TE MTR te LENKJAREAMIXF) = O THEN GO TO MeP3 %155"22297000 

IF PCLINK.AREATYPEFeDUP) = CODEAREAV OR PCXCH) = %1455"=22303000 
TYPES3INTAREAV THEN GO TO CODE3 %155"29303100 

IF LINK, AREATYpPEF = TYPEY3INTAREAV THEN % TYPE 13 INTRINSIC 22356100 

IF PCLINK,AREATYPFEF®DUP) & TYPE7TINTAREAV OR PCXCH) & %155*22386000 
TYPFI3INTARFAV THEN GO TO INTRINSICS3 %155=°22386050 

IF LINK, AREATYPEF ® DATAAREAV THEN % OVERLAYABLE MCP DATA %155°22386100 

SVOTDT . %152°23399000 
UPTIMEOUTCMIX)? %147°24035300 
DOWNTIMFOUTOMIX)3 %147"24096800 

% %153"24304100 
% FYFLNS OF SAVEF PARAMETER 153924304110 
% %153%24304120 
FIELD %153°24304130 

% NEEDOLAY * 09:39 % THIS FIELD IS NON ZERO IF 24304140 
% REQUESTOR WANTS OLAY SPACE24304150 

TYPFNOMeMANDRE TURN = 45101 & FF SaVFF,£45802) = 3 THEN24304170 

» JUSTRETURN = 46104 & GETSPACE WILL TYPE OK MEM24304180 

*GETFROMFRONT ® a7s0t & IF SUCESSFULLs %153°24304190 

' . %153"24304200 
STREAMEXtSCMESS40 OR SAVFFIEASH2ae3)* MIXe STZF2%153%24305700 
MESSteMFSSteGETARFAO) 23 %153"°24305750 

AGAIN3 WATTSTORE@MYX)$ STOREDYOMIXe0)3 %2029"24309000 
STMREDYCMIXe9 D8 %209"24313000 

IF SAVEFsJUSTRETURN THEN PCoeRTNDS %153"724315000 

IF SAVFF eTYPENOMEMANDRETURN THEN PCO*RTN)S %153"24317000 

MPRETSPACEEwTI] Sec ePCHUPDISTYPECARFATYPFFI&MYXPFARFAMEXF I$ 24400000 

TF MESS#0 OR SAVEF,64512) = 3 THEN TEILSPO3 %153°24401000 

REAL BVD»eUBLKSZ»SPB3 %119°27990410 
BCLasCMCCTs#SPaCE(4191)84108938810)3 %119"27993900 

IF HDRTYPF NFQ 3 %119°27994200 

THEN FOR NTite!5 STEP 1 UNTIL NT2 nO RCLENTIMSIISHENTI] = %119"27994210 

FLSE FOR NTtt220 STEP 4 UNTIL NT945 DO %119"279942920 

BCLENT ew OFS eHENTI VS ¥119"27994230 

URLKSZs=NnTO3 %119°27995310 


IF CNT4¢2H02),7°553] © 29 THEN 


% DECIMAL (C4"BIT9%3119"27995600 


BeLLOlisCSPRIBNT2 DTV 30 + (NT2 MOD 30 NEQ 0)9& ¥ SEGMTS/BLOCK 3119°27996300 
NTicie3satiads. % WORNS/RECORD 27996505 


If HORTYPE GFO 2 THEN & FIGURE OUT FOF UStNa@ B6700 FORMULA 
REGIN | 
STREAMC(CBIRO ¢ Weenli4))3 


%119°27996510 
%119°27996515 
%119°27996520 


202 


202 
994 


994 
155 
155 
404 
455 
155 
129 
697 
697 
992 
992 
99a 
992 
155 
155 
155 
155 
155 
155 
155 
152 
147 
147 
153 
153 
153 
153 
153 
153 
153 
453 
153 
153 
153 
153 
209 
202 
153 
153 
155 
153 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 


BEGIN StteLOc WS Nete LOe Bs OrteDr44s SKIP 4 DBI %119°27996525 
20e1F SB THEN DSt=SET ELSE DSseReSeTs SkrP 4 SB)3 %119"27996530 

END} %119°27996535 
BVDiePs ¥ BITS OF VALID DATA IN LAST SEGMT 211927996540 
tf HO?), £889) %119"27996545 
THEN IF CnT228®H0£27.0513] 982 3119927996550 
THEN BFGIN NT19%123 NT4:233 ENN %119°27996555 

FLSF IF NT2s4 %119°27996560 

THEN REGIN NTiteé$ NTGEs73 END %119"27996565 

FLSE BEGIN NT92883 NT4te53 FN %119°27996570 

FLSE BEGIN NTite1; NTAte473 ENDS ¥119"27996575 
NT2te¢¢H£141,620128) MON SPB)xNT1 x30) %119=°27996580 
4¢CBVN + NT4) Drv ¢48 Dev NT19)8 2119927996585 
NTqtsrr NT? LSS UB) KS7 THEN NT2 ELSE UBLKSZ3 %119"27996590 
NTOSeNTI+CHEia4),l2n828) DIV SPBIxXNT3xCNTAte@Hl 344032916193 %119°27996595 
FNn3 %119"27996600 
RCLE7Ia"1F HDRTYPE GFQ 2 THEN CNT24NTG"14y HIV NTO ™ 3 %119"27996605 
oe ELSE HE4)3 %119"27996610 

NreelOr as SytebLOe Hs SKIP 1 DAF NStaSeT? %121°27996675 
SVOINT - %119°27996800 
REGIN TMPtsGETSPACECFPBPTR+ETRLNGoFPBAREAV el) 493% 2155"28050800 
Ht2(METYPEDSPACE(42,DISKHEADERAREAV) I] & 30f883AR110)3% %155" 28070000 
MFFAINFO+J),fatiise0s Z MONT REMOVE IF UNLOAD %757"28093900 
PeMrFAs?]eMrFA])) % SAVE NAME FOR UNLOAD %757"28094500 
NTisteP) MCFAVSANTILS MPFASi]8eP¢XCH)3 & REPLACE NAMES %757"28097100 
EXITs PCP&RCWECTCI20eRNSeOeXCHeP&PFCTFIeSTF)s B160=28101200 
% 0f41329] FILE Ta RE ADDED CNOT ON DISK) %166"28200061 
MUSTADA Be NASLIStil#e ; %166°28208300 

Ir FASZ GTR O THEN LIRRARYHFLPC5) ELSE TuteOUSe(FPBPTR:=09"13 %132°28246200 
$VOInY 28265801 2757728265600 
Be ti IIR RIOR IO NOHO i fe igo %166"28270806 
z CHECK TF FILE tS TO BE ADDFD %166"28270807 
she We he Re Me tee hc ie a pe Sia ke ok ke %166"28270808 
% %166°28270809 
Te ADNDV THEN | %166°28270810 

tF NOT MUSTADNH THEN %166"28270819 

IF OU = 48 THEN® TAPE TO DISK %166°28270814 

IF DIRECTORYSFARCHC@MFIDeFID#5) NEQ OF ALREADY ON DISK 2166728270816 

THEN REGIN | 4166728270818 
LAMFSSCARSCMF INF INO P67 P6BeTINULCIUTeSPOUTUNITsLIBMSG)$ 28270820 

1F nSen TurN aBoORTs ¥166"282708290 

GO NEXTs %166°28270826 

END | B166°28270828 

FLSE REGIN MrFAINFO+JI e£13st}¢%13 MUSTADMI=1 END? %166°28270830 
wsmHR4irb13621073— %119°28274200 

te MUSTADD THEN TiO ELSE% ADD FILE NOT ON DISK %166"28281550 
TSsGrTSPACEC 30sDISKHEADERAREAV#1 493% %155°28288000 

IF oV GEQ 0 THEN 3% WE HAVE AN OUTPUT UNIT B128"28304590 
IF IU GFQO O THEN ® we HAVE AN INPUT UNIT %128°28304700 
Ie OU GFQ O THEN & we HAVE AN OUTPUT UNIT %128°28306500 
TMPteFASZ DIV 2 * 43 275728307700 
FOR J8s0 STeP y UNTyL TMP DO %757728307705 
TF CDAt@MEPAINFO+U99,0°CF]918 THEN % FROM DISK %757"28307710 
IF UNLOAD THEN | ¥757"28307715 
REGIN ME IMEeMCFASIX2]3 FINtRMEFASlesx273 ®757°28307720 
PCDTRECTORYSFARCHC@MFIDS1L3t 4781 ier ID 7) sDEL)S 375728307725 

IF DSED THFN GO TO INITIATES %757=28307730 


9 uv T VeVv e9IgI 35a e909 eg e e0cI Iv veo sg FTF S359 3990 Vs0 90 Cc79 99059 939 99 S_277"N V99 07979797 07°"_7”7T 3 


119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
119 
419 
119 
119 
119 
1214 
119 
155 
155 
757 
757 
757 
160 
166 
166 
132 
757 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
166 
119 
166 
155 
128 
128 
128 
757 
757 
757 
757 
757 
757 
757 


FND? 


ANn CCMFIn FQV “RantTSK ") NrQ@ NOT Oy 


ELSE IF UFq& THEN PCDIRECTORYSEARCH¢*MFIDs F1D*413)*DEL)3 


TMP EERE TSPACE C12 ¢CONTROLCARDARFAV464,5 443% 


LABtFARRAYNESCCI5S+LARELAREAV DIS 
FateTyPensPacrcTMPterrMPacTeMP mtv 2)42eDATAAREAV 4158 
CCAtsSAVEARRAYDESCe 20s ESPDISKAREAV)3% 


FateTYPEDSPACECC(BUMpFAtSFASZ8eIF MAX > 128 THEN 128 ELSE MAX)¢ 


$ SFT OMIT 


CFASZ DIV 2)42eNATAAREAV 413% 
n NOT R6500L0an 


TF R6S00 ANN CNOT OFSTINIG1217) THEN 
BEGIN STREAMCTMPteTMPEeSPACE(10))3 


FNS 
$ POP OMIT 


DS:m32L1T"#B6700 TAPE TO TAPE NOT ALLOWED} 
SPOUTCTMP)¢ 
ARORTS 


Sr*ARRAYDESC C302 ESPHISKAREAVI3% 
WAITTSTORECPIMIX)S STOREDYCPIMIX®0)3 
STOREDYCPIMIXe 4) 5 


IF 
SVOIDT 

IF 
$VOIDT 
$VOIDT 
SVOTDT 


TF 73.615%15]40 THEN % DONT USE NONEXISTENT FIB 


ROCTABLELUJ]*P(CDUP®LODI&REEI.C 14938810] 


RCOATELZar3¢si7I8eYCLECais4ais7)) 


PRNTaRLF CUI. C121) THEN FLSE 


RFatN Lape LTABLECUTImet*PCDUP) 9360 TO SOMEWHERE SENDS 


tf LOs23 THEN BEGIN LOUe273 Hl tw283 FND FLSe 
1F LOe27 THEN BEGIN LO&@eO3 Hriad5s END EFI.SF GO To DUNS 


CMEMPEPYMIXeMLINKIJI,£CF] GEQ FENCE THEN 


IF COUNT <0 THEN GO TO START} 


$ VOID 


Ci2s30r1 G8] o"RETRIES* oF PBLENJeFPALCEN+L J) 2 Je 00 0)3 


IF U < 16 THEN FPRCEN+3), 06327 1¢PRNTABLeE CUI. (3111793 


%757"°28307735 
%165°28415250 
%455°28435000 


3434728446300 
%¥155"28451800 


%155"28452600 
%455°28455400 
%155°28456800 
%155"28457000 
%124"°28475605 
%121°28475610 
%121°28475620 
%121"28475630 
121728475640 
121728475650 
%121=28475660 
%121°28875665 
%155"°26855000 
%202°29544000 
%202°29548000 
%548"370297500 
%745"37046177 
3745°37046178 
%764737053300 
%764"37053400 
%160°37180675 
%903°37195375 
%903"37195400 
%160°37226100 
%160°37226150 
%160°37226500 
%160°37227500 
%118%37240050 
114°37284150 
%715°37285320 
%144°37285410 


AraIN MPALPHASsTI©¢CURLOCeaFTSPACF(BSIZF a4, TOBUPFFRARF AV, 1)+2)423 37406000 
SVOIOT 380294084 


LABEL 


MCT¢eFALPHA@2I9®M OR CGETSPACECCT1 teME Te] ,SIZE D440 


%116=38024040 
%158°38107000 


LABELAREAVe1)44) a2 TICSTZE] & CNTLRITSEFIF 1338197100 


BEGIN NT3 te TYPFDOSPACFE CL 3eLABFLARE AVI 493% 
1F MODE t= ¢(MODE®O) AND BLFEN & 20 THEN 
SAVE WORD $= SAVEWORD OR TWOcU)) 
CNYICTL t= OIREC ae O83 
MET1Is*®aLPHae2)_"=M OR COFTSPACECCTIit@MLT1],SIZF 440 


%155°38107300 
¥301*38107610 
%301°38107620 
%301°38107700 
%155°38205000 


LABFLARFAVs1)44) a TifSrZF] & CNTLAITSCFTF IS 38205100 
IF KIND@? THEN FPBEFNUM+3 Je¢*PCDUP)&T261581598) 842438228510 


800633989]3 
RFFLERNCTARLFECU)¢ C14010)3 & Grr acTUAL RFEL NUMRFR 


%124°38228520 
%745°38247100 


TF KiNnw? AND FrAri3]. r26810)#aAnSe COBOL) THEN GO FIND FLSF 38272000 


1F KinDed THEN MrALPHA®21¢PeDUPeLoD) & 
CIF SEPARATE THEN 1 ELSE @90)€97142:6) 
FLSF 
IF NOY SEPARATE THEN 
IF ¢TYPE<?0) THEN 


%140"38280500 
%140°38280600 
%140°38280700 
%140°38281600 
%140"°38281700 


HEADERE732¢PCOUP®L0DI2¢€020)6278422613%140938281800 


EOFs CLEANUPS 


%4146°38363000 
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757 
165 
155 
134 
155 
155 
155 
155 
155 
124 
121 
121 
121 
124 
124 
124 
124 
155 
202 
202 
548 
745 
745 
764 
764 
160 
903 
903 
160 
160 
160 
160 
118 
114 
715 
114 
155 
$16 
155 
155 
155 
304 
304 
301 
155 
155 
124 
124 
745 
167 
140 
140 
140 
140 
140 
140 
146 


NEF INE H = HEANER#? 


2146"°38385700 


SraOterMrTYPEOSPACE (62eSFGZFROAREAV)II&30£8172F13 38434000 


EVOIDT 38477004 
BEGIN % COMPILE TO LIBRARY 
FoR Ti #8 18 STEP 4 UNTIL 22 DO B CaPY PROC» 1/0» 


%146"38446500 
%146°38447000 
¥144°38447500 


SEGOLTII ¢& SKELCTI]3 F STACKs COMMON® PRIOge ETC. 38448000 


IF (72 9 SKELE13]) # O THEN & LABe EQNe ENTRIES 
REGIN 


%146°38448500 
%146"™38449000 


SKELE13)] «@ OF % SO TERMINATE WONT SEF FSPNISK STUFF 38449500 
OMSKWATTCSKFL, rch ye30eT393 & REWRITE SKFL, SHEFT 38490000 


SEGor15) t@ HE7] + 13 X ANDRESS OF 1ST ENTRY 
DO 


%146°38450500 
®146°38451000 


BFGIN % COPYING LABEL EQN. INFO INTO ODE FILE 38451500 


IF DISKADDRESSCMIDsFINeFPBEENUMS3] » 


%146*38452000 


CTIibsHr7 Tian 7 14190H20) © O THEN & NO ROOM 38452500 


REGIN %146"38453000 
DO %146"38453500 
BEGIN . %146"38453600 
DISKWAITC@SKELSECFle3neT2)3 & GET SEGe 38453700 
FORGFTESPDISK(T2)3 %146"38454000 

ENn ; %146°38484100 
UNTIL ¢T2 t# SKFLF29]) « O8 %146°3B8454500 
FILEMESSC#"DISK *,"OVRFLOW"SMIDsFIDs %146%38455000 
ReDec)3 %146°38455500 

FND %146"38486000 
ELSE %146°38456500 
REGIN %146"38457000 
DISKWAITC@SKEL, CCE 1+300T2)3 % GET SEG, %1446°38457500 
FORGETFSPDISK(T29¢ ¥146"38458000 


IF ¢T2 t@ SKELG293) # O THEN & MORE OF EM 38458500 
SKELF29) t* Ti 4 13 % AMOR, IN CODE FILE 38459000 
DISKWATTCSKEL, FCF 1e30e1TseCHET! DIV HEB8I8146%38459500 


#40] + T1 MOD Hr81))93 
END 
FND 
UNTreL T2 & OF 
END Of PROCESSING LABEL FQUATION yNFOS 
SEGOf6) t= NABSc#P¢DUP))3 & NEW FORMAT SEG, ZERO 
HC4lelins1) 3* 13 %B MARK AS PROGe FILE 
NISKWAITCSFGO.C CFI] +300H£10))3 % REWRITE SEG. ZFRO 
END OF COMPILE TO LIRRARY PROCESSING? 
MrALPHAJ©CuP(NDUP)  yac@60000dCCTFI3 
1F TYPF<20 THEN 


%146"38460000 
%146°38460500 
%146"3B461000 
%146"38461500 
%146"38462000 
%446"38462500 
%146°38463000 
%146°38463500 
%146"38464000 
%140"38590000 
%140%38590400 


MPALPHMATeCePCDUPII&CIF SEPARATE THEN 1 ELSr @20)6271422615%140"38590200 


au IF NOT SEPARATE THEN MPALPHAJ#¢*PeDUP))8162794216)3 
ND} 
IF NOT SEPARATE THEN MCALPHAJ¢PCDUPoLOD98102714296]3 
MEALPHAI £2081) o13 
IF FIRCL4],CFFIJ#F18014),0CF) THEN 
ENDS 
: IF P OR IT THEN 
$ VOINnT 
SVOIDT 38639101 . : 
1F J THEN SFTNOTINUSF¢UsO) ELSE LABELTABLETUJ.,r1#5)]413 
LABEL PX} . 
1F SEPARATE THEN PCWAITI0¢@400010000000.U)eDE1.) 
ELSE pPCWAITIOC@E4002000000F0sU 2 DEI.93 


%140°386592100 
%140°38594000 
%140°38594100 
®140738594200 
7140738594300 
3601"38601100 
%103°38608920 
%601°38681500 
%717° 38639000 
%717*38640000 
%905"38660000 
14038741000 
%140°38741100 


146 
155 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
140 
140 
140 
140 
140 
140 
140 
140 
601 
103 
601 
717 
717 
905 
140 
140 


IF NOT SEPARATE TWEN PCWATTIOC@4000100000,00Ur eNEL DS 
BEGIN ROCTABLFLU],6886)«03 


%140"°38742100 
%538°*38788500 


FORKCPC.PURGEIT)0Us"2012801) END FLSE Se TNOTINUSE(U20)3%538°38789000 
KINDeFYACG),€C8:4)3 IF FIBC13],£28810)40 THEN RFEL*FIBL13).028110]3 39092000 


IF (€T1 # PSFUDOMIXEPIMIX]) # 0 THEN 
IF PacKFTPacEeT! = 32] # 0 THEN 
1F ¢OBOL>O0 OR FrBL4),C781) THEN 
MrFIB INX NOT 4), AREATYPEF 8s COBOLFIRAREAV 
ELSE 
MEALPHA®77eAREATYPEF #2 ALGOLFIBAREAV} 
REAL NEXTLINK® ADs Xe ke SEVEN7® FORTYs EUSUs 
IF CRA*RL» GFQ@ RAND THEN RLEN tt O ELSE 
OKSFGZFROWRITE reTRUFS 
OKSFGZEROWRITES@FALSES 
IF PBCOUNT > 0 THEN 
FNo: SPOUTCX 93 


% TELL OPERATOR 


$ vOInT | 
FIBri61: (CF ita038 
KEY te GETSPACE¢ SeMAINTBUFFAREAV464209403 
KEY 1% GETSPACE¢SeMAINTBUFFAREAV+64 009493 
T1 $3 TYPFOSPACECISeMAINTRUFFAREAVI 3% 
MOVFC¢S/OeBeT142)3 
MLA t= CMrAtaGETSPACE(33eMAINTBUFFARFAV,0)43)1 & 32rS1ZFI8% 


“AUTON, PRNOOMe 417% 
"BINVALD"s "a IPC Cc", 
"2OMecae”® : 

“BARRAY "» "BOLAY cM, % 99 
“BPACE U"™, *6SFD UP", x 
"DATAOD9N, ay 6 
"FORM ">, 75 8 % SWITCH pePCcCcy) 
"RANDOM "yp 78 
“LINE S66", 77 6 
“DUMMY 76 6 
"ON DISK" 2% . % 6B 


OKSFEGZEROWRITES TRUE} 
OKSFGZFROWRITE: ®FALSES 
OKSFGZFROWRITFraTRUFS 
OKSEGZFROWRITEreraALSeE? 
OKSEGZFROWRITE se TRUE 
OKSEGZFROWRITE BF ALSES 


TimC(TISGETSPACE(J+2eTNQUIRYBUFFARFAV#0 941943 AND NOT 


IF FENCE.C390%16) # FENCE OR FENCE < 8192 THFN FENCE $m 163843 
IF J < 7 THEN % NEEN TO FIND HIGHEST ON LINE MON BELOW FENCE 
MEMTOGI™43 
*+(CHUNKMAX#05 2 IN CASE ITS ALL BaTCH 
MECteJP=sTYPENSPACE CT eMCPTABLFARFAV)+7T11803 
Tre CHUNKMaAXe(CHUNKMAX#O) 3 . 
1 @* SPACESTACKSIZES T 18 PC.SPACESTACK)S FIX: & 
1 te WS T tu PC,ESPTABIS FIXS & 
1 te 1003 T tm PE ,WORKERSTACK)S FIX) & 
1 ts O}3 
FOR T ts 4 STEP 1 UNTIL NUMSTACK DO 
BEGIN 
MCJ] ¢&3 Is ®% LINK To PREVIOUS STACK IN Qe 
MCJ#1) 9* WORMOFFASES ® cLEaR STaek 
MOVE CSTANDARDSTACK*20Jelede2)3 
1 t J) &® REMEMBER WHERE THES STACK IS 


%105°39092165 
%105739092167 
%155=939304000 
£155~"39304500 
¥1§5"39304600 
%155°39305000 
2791740004500 
%604%40060060 
%203"40249400 
%203"40262100 
%791°40320100 
2791740380600 
%791°40338000 
%110"41204000 
®155"41312700 
2455741314000 
%155"41323130 
%135°41323150 
%15574¢ 328600 
%902"°41434800 
4145741445500 
%145°41445600 
%517"41445700 
%517"=41445800 
%890°44483010 
%846°41485600 
2603741485610 
%724°41485620 
%846"41485630 
2166741493085 
2203742600919 
%203°42600921 
%203742713949 
$203°42713951 
%203°42730999 
3203742731001 
33 44041000 
%151°44104000 
%151°44109900 
%202"°44114100 
2151744151050 
%155°44153500 
151°44163100 
$152"44173100 
$158"44173200 
$158"44179100 
%1568"44179200 
%158"44179250 
%158"44179300 
%158744179350 
%158°44179400 
2158744179450 
%158"44179500 


140 
538 
538 
115 
105 
105 
155 
155 
155 
155 
794 
604 
203 
203 
794 
794 
794 
110 
155 
155 
155 
135 
155 
902 
145 
145 
517 
517 
890 
B46 
603 
724 
B46 
166 
203 
203 
203 
203 
203 
203 
155 
151 
151 
202 
154 
155 
154 
152 
158 
158 
158 
158 
158 
158 
158 
158 
158 


Be 3@ AQ BR DE DR BE BR DE DE BQH BE ge dR 


J t® J & STANDARNSTACKS & COMPUTE ANDRESS OF NEXT STAC44179550 


FNn} 
STACKQ t= 13 & POINT TO FIRST STACK 


%158°44179600 
215844179650 


IN 
MOVE ¢99e7 raWORKERSTACK, CCF l]e441)8 BTO spoT POSSTBLE OVER 44189600 


IF CTIBMPAS§9), 132216]) *# FENCE AND T 


# 0 THEN 


2 @50000 AND T < @100000 THEN FENCE te T3 


J USEGETSPACECZeAVTABLEAREAV 04 ) 493 
SCRATCHVECtSEMEGETSpACE C1O0*SCRATCHDIRAREAV# SCRA 
& 10 (CToOSIZE)}3 
OKSFGZFROWRITEs TRUE? 
OKSEGZFROWRITELSFALSES 
ITSALLBATCH t= FENCE 2 @600003 
TF AUTORN THEN REGIN RUNUMBERS #43 STARTADFCK(O) 5 
FOR NT¢e1 STEP ¢ UNTTL LMAX po 
te SCHEDLINEPNT1)] THEN SCHEDBUSYENT1]I 


129! GO Ton EXTERNALS % 35 
130! GO Tn EXTERNAL? % 36 
$31: GO To EXTERNAL? % 37 


YF NT3®2 THEN STOPM ELSE SWA 
IF LOGLINE,£3387]#0 THEN 


TCHSAVE )#+2)) 


%151=44191020 
151744191040 
2155744240840 
155744241180 
155442461185 
2203744411399 


%203744411401 

2151°44420000 

END} %902"44424100 

%99 3244430000 

« O03 %993"44430100 

* SPECIAL INTERRUPT 46011500 

” DKA READ CHECK 46012000 

* DOKB READ CHECK 46012500 

P¢ 299148030000 


2994"48030010 


IF NOT SCHEDLINEFLOGLINE.€40:18)] THEN %991"48030015 
FORCESWAP FLSF TIMEND ELSE TIMENDoel)3 48030020 


1F We REACH THIS POINT THEN THIS 

UP 1TS TIME SLICE CEITHER PROCES 
VoOIDT 48038401 

THIS JOR HAS BEFN DOING EXcCESSIV 


DESERVES ANOTHER CHUNK OF MEMORY? 


PROGRAM HAS USED UP ITS TIME SLI 


JOB HAS USFD 
SOR OR 1/0) OR 


er OVERLAY AND 
IF THE 
CEs WE WILL 


154748038120 
%154°48038130 
%454°48038140 
®154°48038149 
%154°48038150 
%154°48038160 
2154°48038170 


SWAP IT OUT IF THERE IS SOME OTHER PROGRAM THAT %154°486038180 


1S RFANY TO RUN AND CAN USF THIS GUYS CHUNKS, 


1F%154"%48038190 


THE PROGRAM HAS BEEN DOING EXCESSIVE OVERLAY AND%154"48038200 
THF PROGRAM HAS ROOM FOR FXPANSION AND DIONT USE%154"48038210 


A May CORFE CARD, WE WILL SWAP IT 
AND SWAPPYINGTO WrLL ARRANGF TO 0 
CHUNK, 


IF PeOsRDS) > FENCE THEN &% SWAP 
BEGIN 
FOR NT2 2* SCCPIMIX] STEP 1 
IF ACTIVEENT2] > 1 THEN & 
REGIN % 
SWAPCTIMEND e193 & 
GO TO RETURNS 
ENDS 
IF OLAYCTREP¢MIX] < O THEN 3% 
IF DONTEXPANDBITS(CPiMtX) # 
REGIN 
SWAPCTIMENDs1)3 % 
GO TO RETURNS 
FNDS 
REGIN SWAPCTIF LOGLINGe€332871#0 THEN 
IF NOY SCHEDLINEFCLOGLING.£40;:8)) 
FLSE TIMEND ELSE TIMENDe1)3 GO T 
REGIN 


OuT 
ATAIN ANOTHER 


0B 


UNTIL LOEPIMIX) 
SOMEONF CAN USE 
eHUNK, 


%154=46038220 
%154=46038230 
%154"480386240 
%154°48038250 
2154°48038260 
%154°48038270 
Do 48038280 
THIS 48038290 
%154°48038300 
%154"48038310 
215448038320 
%454°48038330 


FXCESSIVE OVERLAY, 48038340 
© THEN % EXPANDABLE 48038350 


%154°48038360 
%¥154°48038370 
%¥154°48038380 
2154748038390 
%991°*48038400 


THEN FORCESWAP%991°480386405 


0 RETURN FNDS 


2991748038410 
2155748052000 


PONT4, BLOBSNTIsGETSPACFOENTI »pSTACKAREAV)3))#48052100 


$ SET OMIT w= NOTCNEWLOAGING) 


%550"48100499 


158 
158 
158 
158 
1514 
151 
155 
155 
155 
203 
203 
154 
902 
993 
993 
172 
172 
172 
9914 
994 
9914 
994 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 
154 


9914. 


991 
994 
155 
155 
550 


STARTLOGCPIMIX)$ 


$ POP OMIT ; 
IF U bred 15 THeN & TaPe 170 


FNM. 
? FND, 


NUMBER OF ERRORS DETECTFD » 0, 
PROCESSOR TIME = 1485 SFCONDS, 
1/0 TIME ® 93 SECONDS, 


LABEL OO0N00000LINE ON179219? EXECUTE PATCH/MERGE 


%550"48100500 
%550"48100501 
%168"94129560 
%168°99999999 

000000¢; 


pee vw: Bow Tite ] 


550 


550 
168 


168 


PATCH 


/MERGE 


